Hi Andreas,
erstmal danke für deine Unterstützung. Hab zu spät gesehen, dass du geantwortet hast. Tut mir leid.
Habe das jetzt mit der Array Range umgesetzt und das funktioniert soweit.
Das eigentliche Problem hatte ich aber auch wenn ich bspw. über eine Schleife in das Tabellenblatt 2 schreiben will,
Private Sub Schleife_schreiben()
For i = 1 To 10
Worksheets(2).Range(Cells(i, 1), Cells(i, 2)).Value = i
Next i
End Sub
Ändere ich das Worksheet auf den Tabellennamen statt des Index' kommt trotzdem der Laufzeitfehlerfehler 1004. Setze ich das Worksheet aber auf Worksheets(1) oder Worksheets("Tabelle1"), dann funktioniert das problemlos und meine Schleife wird geschrieben.
|