heute nochmal ein Anlauf mit angepasstem Code und besserer Erläuterung. Ich möchte per Button aus der gerade geöffneten Datei "kopiertest" aus den Zellen A1 und A2 etwas in die nächste freie Zeile der Arbeitsmappe "kopiertest-hin" kopieren. Innerhalb einer Arbeitsmappe funktioniert es (mit thisworkbook), wenn ich aber, wie hier, in eine andere Mappe kopieren will, kommt die Fehlermeldung "Index außerhalb des gültigen Bereichs." Kann es sein, dass die Anweisung extern nicht funktioniert, oder muss ich noch etwas ändern?
Sub test()
Workbooks.Open ("C:\Dokumente und Einstellungen\Hoyer\Desktop\kopiertest-hin")
a = 1
Do While Workbooks("kopiertest-hin").Worksheets("Tabelle1").Cells(a, 1) ""
a = a + 1
Loop
Workbooks("kopiertest-hin").Worksheets("Tabelle1").Cells(a, 1) = Workbooks("kopiertest"). _
Worksheets("Tabelle1").Range("A1:A1")
Workbooks("kopiertest-hin").Worksheets("Tabelle1").Cells(a, 2) = Workbooks("kopiertest"). _
Worksheets("Tabelle1").Range("A2:A2")
End Sub