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

So dann nochmal ein Kommentar von mir...

Nachdem nun auch M.O. gesagt hat, das es schwer wird, bzw. den Rechner in die Knie zwingt, eine rein rhetorische Frage:

Ist dies überhaupt machbar???
Bringt der Ansatz von m-o-m etwas???

Ich möchte wirklich nicht, das sich jemand von Euch, wegen der Geschichte die Nächte um die Ohren schlagen muss...

Gibt es aus Eurer fachmännischen Sicht etwas die Sache vielleicht anders anzugehen???

Wäre es einfacher, bzw. machbar, wenn "nur" folgendes passiert:

Übernehme aus den ersten Blättern als Beispiel alle Zeilen und shcriebe diese alphabetisch sortiert zum jeweiligen Datum? Dann kann der Koch sich ja unterienader zusammenzählen, wenn ein Artikel mehrfach vorkommt...

Oder vielleicht ganz anders...

Im Augenblick hat der Koch doch für alle Location jeweils mehrere Blätter vor sich liegen, gibt es eine andere Möglichkeit ihm das ein wenig aufzubereiten???


Wie gesagt, wenn die gedachte Lösung nicht geht, bin ich auch für andere Ideen offen...



LG Jeremy

Answer 2

Hallo,

nur als Zwischeninfo:

Es sieht ganz gut aus, hoffe heute Abdend das Rohkonzept stehen zu haben und dann müssen wir weitersehen.

Gruß

Helmut

Answer 3

Hallo,

www.file-upload.net/download-3685593/Kopie-von-IAA_2011_-_Mercedes_-_alle_Veranstaltungen_-_Makrotest.xls.html

als mein Lösungsvorschlag,

ein paar Hinweise auf den Bläätern 1 bis 9 (L0 - ...bis L2...) darf die Spalte R nicht beschrieben werden, da ich diese für die Mengenermittlung brauche

Auf den Datenblättern darf die Spalte H aus dem gleichen Grund nicht genutzt werden.
Hier sind auch die Zellen I4 bis Z4 von mir belegt.

Für das Löschen der Leerzeilen suche ich noch nach einer bessern Lösung, dauert sehr lange, ist aber nur bei zusätzlichen Speisen erforderlich, nicht bei reinen Mengenänderungen.

Jetzt mal testen.

Gruß


Helmut

Answer 4

Moinsen Jeremy,

Alles Gute zum Geburtstag.

Und, gehörst Du jetzt zu den "Alten"? Man ist so alt, wie man sich fühlt!!

Und bei der Lösung von Helmut zeigt sich mal wieder ganz deutlich der Unterschied zwischen Kreisklasse und Championsleague.

Gruß Maik

Answer 5

Hallo Jeremy,

auch von mir alles Gute zum Geburtstag.

Und Helmuts Lösung sieht auch ganz gut aus, was ich so auf den ersten Blick gesehen habe.

Gruß

M.O.

Answer 6

Hallo,

auch ich wünsche dir zum Geburtstag alles Gute, vor allem Gesundheit

Aber die Kollegen könnten mir helfen den letzten Teil der Aufgabe besser zu lösen.

Ich suche eine Möglichkeit bei gesetzem Filter die erste Zeile zu finden. Im Programmhatte iches mit Zeile 9 bei den Datenblättern versucht, Auf dem Datumsblatt 13.9. wäre es z.B. die Zeile 13. kennt einer dafür einen passenden Befehl?

Gruß

Helmut

Answer 7

Hallo Jeremy,

Wünsche Dir zum Geburtstag alles Gute sowie Gesundheit, Erfolg und alles Schöne

Ein Geschenk in Form einer herzeigbaren Lösungsvaraiante kann ich leider nicht bringen, aber @Helmut glaube ich hat es bis auf ein paar Kleinigkeiten schon auf die Reihe gebracht.

Gruß

Paul1

Answer 8

Hallo,

zur ersten Zeile bei gefilterten Tabellen habe ich mal etwas gegoogelt und das hier gefunden:

Erste sichtbare Zeile einer mit AutoFilter gefilterten Liste abfragen

Gruß

M.O.

Answer 9

Hallo Jereny,

auch ich schließe mich der Gratulantenschaar an und wünsche Dir alles Gute zum Geburtstag, vor allem Gesundheit.

Gruß
Rainer

Answer 10

Hallo,

hier ein Code zur Ermittlung der ersten Zeile in einem gefilterten Bereich (da der Code aus dem Link meiner Antwort 38 bei mir nicht funktioniert):

Sub FilterZeilen()
Dim rngFilter As Range

' Bereich der sichtbaren Zellen ohne Überschriftenzeile ermitteln
With ActiveSheet.UsedRange
Set rngFilter = .Offset(1, 0).Resize(.Rows.Count - 1, 1) _
.SpecialCells(xlCellTypeVisible)
End With

MsgBox "1. gefilterte Zeile (ohne Überschrift): " & rngFilter.Row

End Sub

Gruß

M.O.