Methode Range für das Objekt worksheet ist fehlges

Bild

Betrifft: Methode Range für das Objekt worksheet ist fehlges
von: Daniel
Geschrieben am: 12.11.2015 09:19:00

Hallo zusammen,
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 :)

Bild

Betrifft: AW: Methode Range für das Objekt worksheet ist fehlges
von: hary
Geschrieben am: 12.11.2015 09:21:09
Moin
Weise den Cells auch das Blatt zu.

wkb1.Range(wkb1.Cells(i, 1), wkb1.Cells(i, 3)).Copy

gruss hary

Bild

Betrifft: AW: Methode Range für das Objekt worksheet ist fehlges
von: Luschi
Geschrieben am: 12.11.2015 09:34:35
Hallo Daniel,
oder so:


With wkb1
   .Range(.Cells(i, 1), .Cells(i, 3)).Copy
End With
Gruß von Luschi
aus klein-Paris

Bild

Betrifft: AW: Methode Range für das Objekt worksheet ist fehlges
von: Daniel
Geschrieben am: 12.11.2015 10:14:35
Vielen Dank euch beiden!!

 Bild

Beiträge aus den Excel-Beispielen zum Thema "Methode Range für das Objekt worksheet ist fehlges"