Folgender Hintergrund: Ich habe eine Mappe in welcher über eine UserForm diverse Diagramme angelegt werden. Jetzt möchte ich nur die Diagramme in eine neue Arbeitsmappe exportieren.
Soweit kein Problem. Beim Kopieren der einzelnen Diagramme und Quelltabellen in die neue Mappe wird allerdings der Datenbezug auf die Ursprungsdatei gesetzt. Ich kopiere also jede Tabelle einzeln in die Zieldatei.
Jetzt habe ich mal den Makro-Recorder angeschaltet und alle Tabellen in eine neue Mappe kopiert:
Sheets(Array("Dia6src", "Dia6")).Select
Sheets(Array("Dia6src", "Dia6")).Copy
Wenn ich so die Tabellen in die neue Mappe kopiere ist der Bezug korrekt.
Meine Frage: Wie kann ich diese Code-Methode variabel gestalten. Die zu kopierende Tabellen in ein Array einlesen ist kein Thema. Nur wie mache ich dann diese "multiple" Selektion der Tabellen mit dem vorhandenen Array.
Gruß und danke,
Josef