|
Hallo Anna,
Bist Du Dir sicher, dass Du die Wert in dem gleichen Tabellenblatt in Zelle B3 einfügen möchtest? Ich habe zum Testen ein Sheet("insert") angelegt, in das die Daten kopiert werden.
so sollte es funktionieren:
Sub Test()
Dim n_cust, n_prod, Kopierspalte_Ende As Integer
n_cust = 70
n_prod = 6
Kopierspalte_Ende = n_cust + n_prod + 2
Dim lngLetzteZeile As Long
'letzte verwendete Zeile in Spalte A ermitteln
lngLetzteZeile = Worksheets("LGs").Cells(Rows.Count, 1).End(xlUp).Row
With Worksheets("LGs")
.Range(.Cells(2, 2), .Cells(lngLetzteZeile, Kopierspalte_Ende)).Copy
Sheets("insert").Range("B3").PasteSpecial Paste:=xlValues
End With
End Sub
Viele Grüße
Kai
.... Als Fehlermeldung erhalte ich: "Laufzeitfehler '1004': Die Methode 'Range' für das Objekt '_Worksheet' ist fehlgeschlagen."
Wenn ich es so versuche: Worksheet("LGs").Range(.Cells(2, 2), .Cells(2, Kopierspalte_Ende)).Offset(i, 0).Copy
|