ich habe mal wieder in meiner Programmierung nicht weiter. Ich bin dabei ein Makro zu schreiben, in dem ich aus einer Datei1 aus einer Tabelle Werte kopiere, und diese in Datei2 auf verschiedene Tabellenblätter einfügen möchte. Ich habe in dieser Richtung schon mehrere Makros erstellt, und diese funktionieren auch alle recht gut. Das Problem dieses mal ist nun folgendes:
Ich benutze folgenden Code, um von der Datei1 in Datei2 zu kopieren. Das ganze ist in einer Schleife eingebettet, so daß die Angaben für Cells sich stetig ändern. Das klappt auch wunderbar.
Nun will ich aber die Bezeichnung für die Worksheets in datei2 auch noch über eine Schleife laufen. Die Namen sind leider zu unterschiedlich, um diese in eine Schleife einzubinden.
Sämtliche Versuche oder Ideen die ich hatte erzeugten immer wieder die typischen allessagenden Fehlermeldungen.
Workbooks(datei1).Worksheets("tabex"). _
Range(Workbooks(datei1).Worksheets("tabex").Cells(QSZ, QSS), Workbooks(datei).Worksheets("tabex").Cells(QSZ + 11, QSS)).Copy _
Workbooks(datei2).Worksheets("Total"). _
Range(Workbooks(datei2).Worksheets("Total").Cells(ZSZ, ZSS), Workbooks(datei2).Worksheets("Total").Cells(ZSZ + 11, ZSS))
Application.CutCopyMode = False
Vielleicht hat ja jemand für mich einen guten Ratschlag. Tut mir leid das meine Anfrage an Euch heute ein bißchen länger geworden ist, aber vielleicht liest es doch jemand. Vielen Dank schon einmal im voraus.
Mit besten Grüßen
Bertram