Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1668to1672
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Fehler 1004 Copy-Methode

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
Anzeige
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
Anzeige
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)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige