Makro zur Übernahme von Dateien auf mehrere andere Blätter

Question

Hallo Excel Fachmänner,

ich brauche mal wieder Hilfe bei einer Makro-Übernahme,
bei der ich nicht weiterkomme, da ich von Makro überhaupt
keine Ahnung habe.

Im angehangenen Dokument sollte folgendes passieren:

Auf den ersten 9 Reitern (Smart-MB Cafe) habe ich
Speisen und Speisenkomponenten eingefügt. Dies ist
im Augenblick noch mein Muster, also es ist auf den ersten
9 Reitern noch nicht korrekt ausgefüllt. Allerdings kann man
im ersten Reiter Smart in den Zeilen 28-31 bereits sehen,
wie es einmal ausschauen wird. In den Spalten U-AT errechnet
sich dann die benötigte Menge.
Wie gesagt, die Reiter Smart bis MB Cafe werden noch
vervollständigt.

Jetzt benötige ich auch den letzten 13 Reitern (13.09.-25.09.)
eine Übernahme der Mengen.
Dies sollte, wenn es geht wie folgt passieren:

Bsp:

Im Reiter 13.09. sollen aus den ersten 9 Reitern die Zahlen
und Beschreibungen übernommen werden.
Also erstmal schauen, wo steht in den ersten 9 Reitern etwas
in Spalte U + V.
An diesem Bespiel steht in Reiter Smart in U28 =6,0
in V28 = kg.
Übertrage mir jetzt in dem Reiter 13.09. in I9 = 6,0 und in
J9 = kg.
Füge zusätzlich die Speisenform (Frühstück), die Speise
(Mild gesüßter...), die Speisenkomponente (Bio Joghurt),
den Lieferant (Weihenstephan), das produziert durch (Pati)
und den Ihnall´t der TK? Spalte hinzu.

Dies suche jetzt für den 13.09. auf allen 9 Tabellenblättern
in den Zeilen von Zeile 28 - 1000 (1000 als Sicherheit falls
nochmehr dazukommt).

Was jetzt noch dazu kommt, wäre, dass er gleiche Artikel,
also wo Speisenform, Speise, Speisenkomponente, Lieferant,
produziert durch und TK?, nicht mehrere male aufführt, sondern
nur einmal.
Also wenn es als Beispiel diesen mild gesüßten Bio Joghurt
bei Smart und bei Maybach auffürt, dann schreibe mir den
Artikel einmal hin und trage mir die Mengen auf dem Reiter
13.09., dann eben in Spalte I + K.

Dies alles sollte durch das Makro in den Tabellenblättern
13.09. - 25.09. passieren.


Was noch abschließend hinzukommt:

Der "Kunde" ändert auch gerne mal sehr kurzfristig einige Sachen.
Dann muss ich in den ersten 9 Blättern teilweise Speisen, aber auch
Gästezahlen ändern.
Das Makro sollte also wenn möglich so ausgelegt sein, das wenn ich
es erneut betätige in den Reitern 13.09. - 25.09. erstmal alles gelöscht
wird und dann neu berechnet wird.



Kann mir da jemand helfen ???


Bei Fragen, einfach loslegen...


https://rapidshare.com/files/1654861629/IAA_2011_-_Mercedes_-_alle_Veranstaltungen_-_Makrotest_1.xlsx

Vielen Dank

Jeremy


PS: Die Reiter Vorabend Event und Rhein Main Abend einfach
ignorieren...

Answer 1

Hallo,

die Funktion geht twar aber gibt mir den Wert 2 zurück und auf dem Blatt 13.9. müsste es 13 sein.

Gruß

Helmut

Answer 2

Hallo,

ich nochmal.


Es wäre doch bestimmt ein schönes Geschenk für @jeremey wenn wir das noch so hinbekämen.

Gruß

Helmut

Answer 3

Hallo,

ich hab das mal an der Beispielmappe probiert und erhalte auch den Wert 2. Ich werde mal sehen, wie man das Problem lösen kann.

Gruß

M.O.

Answer 4

Hallo,

da ja alle Blätter gleich aufgebaut sind, hier ein Makro, um die erste nicht ausgeblendete Zeile (ab Zeile 9) zu ermitteln:

Sub Erste_Zeile()
Dim zeile, ezeile As Long

For zeile = 9 To ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Row
If ActiveSheet.Rows(zeile).Hidden = False Then
ezeile = zeile
Exit For
End If

Next zeile

MsgBox "Die erste nicht ausgeblendete Zeile ist " & ezeile

End Sub

Gruß

M.O.

Answer 5

Hallo @M.O.,

das habe ich vorhin auch gefunden und schon eingebaut.

Lade die Datei jetzt hoch.

Gruß


Helmut

Answer 6

Hallo,

www.fileuploadx.de/541599

hier ist die Version 2 .

Wichtig in den Datenblättern dürfen keine Autofilter hinterlegt sein.

Jetzt soll @Jeremy erst mal testen. Zur Zeit unberücksichtigt, Zusammenfassung von gleichen Speisen aus unterschiedlichen Bereichen.

Gruß

Helmut

Answer 7

Hallo Leute,

Als erstes erst einmal allen herzlichen dank für die wünsche zu meinem 40.
Geburtstag, auch wenn sie aufgrund meiner falschen Aussage zu früh waren, da
ich erst morgen am Freitag, den 26.08. Geburtstag habe und dann erst in den
Kreis der ,,mittelalten,, zähle. Desweiteren vielen dank für euern Einsatz und das
scheinbar perfekte Geburtstagsgeschenk. Leider kann ich es noch nicht
anschauen, da mir meine Frau zum ,,runden,, eine 4-tätige Reise geschenkt hat
und ich von heute bis Sonntag Abend unterwegs bin...

Ich werde mir alles Montag morgen anschauen und danke schon einmal wie
verrückt für dieses wunderschöne und überraschende geburtstagsgeschenk.
Vielen, vielen dank dafür.

Jeremy

Gesendet von unterwegs ohne gutes Internet vom handy aus...

Answer 8

Hallo,

eigentlich sind verfrühte Geburtstagswünsche ein schlechtes Zeichen, da wir aber nicht abergläubisch sind, werden wird ads hinkrigen.

Da hoffenlich mit einer positiven Rückmeldung nächste Woche und einen schönen Geburtstagsurlaub.

Gruß

Helmut

Answer 9

Hallo Leute,

an dieser Stelle noch einmal danke für die Glückwünsche zum 40. Geburtstag :-)

Desweiteren natürlich Dank für Eure Hilfe und Euer extremes Engagement.

Leider kommt der Kunde nicht in die Pötte und so habe ich die Mercedes-Liste noch nicht vom Küchenchef bekommen.
Ich habe aber die Liste für Audi fertig, welche fast zu 100 % identisch ist, lediglich zwei "Locations" (Reiter) weniger, der Aufbau der Blätter ist identisch.

Ich habe diese jetzt mal Helmut geschickt, vielleicht kann er das Makro dort probieren...


ich gebe auf jeden Fall ein entsprechendes Feedback...


LG Jeremy

Answer 10

Hallo,

hier meine Testdatei "Audi"

www.file-upload.net/download-3705973/IAA_2011_-Audi_-_alle_Veranstaltungen_-_Makrotest.xls.html

müsste klappen.

Wichtig ist, dass die Namen der Lounge-Blätter mit den Namen der Loungen auf den Datenblättern identisch ist. Die hinweise in AW 33 zu verschieden Spalten unf Zeilen gelten weiter.

Viel Spass beim Test

Gruß

Helmut