ich steh mal wieder total auf dem schlauch. bei dem unten stehenden code bekomme ich immer den Fehler: "Methode Range für das Objekt worksheet ist fehlgeschlagen" in der zeile: wkb1.Range(Cells(i, 1), Cells(i, 3)).Copy
hier der code:
Sub KredEinlesen()
'Variablen definition
Dim i As Integer
Dim wkb1 As Worksheet
Dim wkb2 As Worksheet
'Set Variabels
Set wkb1 = Worksheets("Kreditoren OP-Liste")
Set wkb2 = Sheets("Kreditoren")
i = 1
For i = 1 To 2000
If wkb1.Cells(i, 1) "" Then
wkb1.Range(Cells(i, 1), Cells(i, 3)).Copy
wkb2.Range("A1").PasteSpecial Paste:=xlPasteValues, _
Operation:=xlNone, SkipBlanks:=False, Transpose:=False
End If
Next i
End Sub
schon einmal vielen dank :)