Simpler Copy Befehl scheitert
22.07.2015 16:32:21
P-Quest :-)
Hallo,
ich möchte mit u.a. Code einen Tabellenbereich in ein anderes Tabellenblatt kopieren.
Eigentlich kein Problem, dachte ich, weil ich den entsprechenden Befehl an einer anderen Stelle in meinem Programm auch schon verwende.
Weit gefehlt. Der Code
Sub AktBestSik()
'aktuelle Bestände sichern
Dim wsQuelle As Worksheet
Dim wsZiel As Worksheet
Dim lngLastRow As Long
Dim lngz As Long 'Startzeile für kopierte Daten
Set wsQuelle = Worksheets("Stammdaten")
Set wsZiel = Worksheets("Datenblatt")
lngLastRow = wsQuelle.Cells(Rows.Count, 1).End(xlUp).Row
lngz = 20
wsQuelle.Range(Cells(5, 1), Cells(lngLastRow, 1)).Copy wsZiel.Range("A20")
wsQuelle.Range(Cells(5, 12), Cells(lngLastRow, 12)).Copy wsZiel.Range("B20")
End Sub
steigt beim ersten Copy Befehl mit Fehler 1004 aus:Die Methode Range ist für das Worksheet Objekt fehlgeschlagen.
Bin ich zu dumm?
Hat jemand einen schärferen Verstand und ein schärferes Auge um mir zu sagen, wo ich da pfusche?
Gruß,
Peter