Fehler 1004 Copy-Methode

Forumthread: Fehler 1004 Copy-Methode

24.01.2019 10:38:34

Luisa

Hallo,
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

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Fehler 1004 Copy-Methode

24.01.2019 11:27:03

Torsten
AW: Fehler 1004 Copy-Methode

24.01.2019 12:30:22

Luisa
AW: Fehler 1004 Copy-Methode

24.01.2019 12:25:53

Rudi

AW: Fehler 1004 Copy-Methode

24.01.2019 11:27:03

Torsten

Versuch mal:

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(Rows.Count, 1).End(xlUp).Row
letzteZeileArchiv = Worksheets("Archiv").Cells(Rows.Count, 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

Ich glaube, es liegt daran, dass du die letzte Zeile falsch ermittelst.
Gruss Torsten

AW: Fehler 1004 Copy-Methode

24.01.2019 12:30:22

Luisa

Yeah! Es hat funktioniert! Vielen Dank!

AW: Fehler 1004 Copy-Methode

24.01.2019 12:25:53

Rudi

Hallo,
warum ermittelst du letzteZeileArchiv in A, kopierst aber nach B?

Sub rohdatenArchivieren()
With Worksheets("Rohdaten")
.Range(.Cells(5, 1), .Cells(Rows.Count, 1).End(xlUp)).Resize(, 16).Copy _
Worksheets("Archiv").Cells(Rows.Count, 2).End(xlUp).Offset(1)
End With
End Sub

Gruß
Rudi

Beliebteste Forumthreads (12 Monate)

Forumthread: Fehler 1004 Copy-Methode

3 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread