Ich versuche einen Zellbereich von einem Tabellenblatt("Rohdaten") in ein anderes Tabellenblatt ("Archiv") einzufügen. Sowohl Quell- als auch Zielbereich ändern sich jedoch immer wieder. Die Auswahl des Bereiches funktioniert, alles die das Kopieren danach nicht. Ich bekomme die Fehlermeldung Laufzeitfehler 1004.
Danke schon mal für eure Hilfe!
Sub rohdatenArchivieren()
Dim letzteZeileRohdaten As Integer
Dim letzteZeileArchiv As Integer
Dim anzahlDatensaetze As Integer
Dim bereichQuelle As String
Dim bereichZiel As String
'letzte befüllte Zeilen ermitteln
letzteZeileRohdaten = Worksheets("Rohdaten").Cells(1048576, 1).End(xlUp).Row
letzteZeileArchiv = Worksheets("Archiv").Cells(1048576, 1).End(xlUp).Row
anzahlDatensaetze = letzteZeileRohdaten - 4
bereichQuelle = "A5:P" & letzteZeileRohdaten
bereichZiel = "B" & letzteZeileArchiv + 1
Worksheets("Rohdaten").Range(bereichQuelle).Copy Worksheets("Archiv").Range(bereichZiel)
End Sub