Hallo zusammen,
ich brauche eine Schleife, in der nacheinander einzelne Zeilen kopiert werden. Da sich die Anzahl der zu kopierenden Spalten künftig ändern wird, soll der Zellbereich variabel gehalten werden.
Der Code sieht so aus:
Dim n_cust, n_prod, Kopierspalte_Ende As Integer
n_cust = 70
n_prod = 6
Kopierspalte_Ende = n_cust + n_prod + 2
Schleifenende = WorksheetFunction.CountA(Tab2.Range("B3:B50000"))
For i = 1 To Schleifenende
Worksheet("LGs").Range(Cells(2, 2), Cells(2, Kopierspalte_Ende)).Offset(i, 0).Copy
Worksheet("LGs").Range("B3").PasteSpecial Paste:=xlValues
....
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
Kommt:
"Fehler beim Kompilieren:
Unzulässiger oder nicht ausreichend definierter Verweis"
In den Zellen (B3:BZ3) im Arbeitsblatt stehen überall Werte.
Schon im Voraus vielen Dank für eure Hilfe!
(Bin Anfängerin, also ist es wahrscheinlich eine doofe Frage...)
Liebe Grüße
Anna
|