Copy - Paste Special
14.05.2007 14:13:04
Torsten K.
Hallo beisammen,
folgender Code bricht bei mir ab mit der Meldung: "Fehler beim Kompilieren - Erwartet: Anweisungsende":
...
Dim r4 As Integer 'Zeilenzähler in Zieltabelle (Datenbank)
r4 = Sheets("DATENLN").Range("B10002").End(xlUp).Row + 1
Sheets("LNe").Range("J8").Copy _
Sheets("DATENLN").Cells(r4, 2).PasteSpecial Paste:=xlValues
...
Was mache ich denn hier noch falsch?
Vielen dank für Eure Tipps.
Gruß
Torsten