Hallo zusammen,

ich hoffe ihr könnt mir helfen.

Ich habe in array1  mit z1 (zähler) die Worksheetnamen in einem Array eingelesen, was auch wunderbar funktioniert hat, das Problem ist das er bei dem Kopierbefehl immer den Fehler "Laufzeitfehler 9: Index außerhalb des gültigen Bereichs" ausgibt, obwohl ich z1 (zähler) auf 0 setze.

Des Weiteren habe ich versucht noch in einer weiteren Variable (AN) dem Namen der Variable Hochkommata davor und danach zu geben, was im selben Problem endetet.

Der Variable AN habe ich auch den Datentyp String zugewiesen und das ganze auch mal ohne Datentyp versucht, alles leider erfolglos.

Auch wenn die "Destination" auf Worksheets(array1(z1)).Range("A1") geändert wird funktioniert es nicht.

Ich vermute es liegt an der Variable in der "Destination" .

Was wären den mögliche anpassungen bzw. wie behebe ich den Fehler und ist der Fehler da wo ich ihn vermute?

'z.B. array1(0) ist XYZ GmbH und das Tabellenblatt (der Reiter) XYZ GmbH existiert

AN = """ & array1(z1) & """

z1 = 0

Worksheets("Sheet1").Range("A1:Q1").Copy Destination:=Worksheets(AN).Range("A1")

Mit freundlichen Grüßen

Grondos