Office: rechte Zelle kopieren wenn Zelle bestimmten Inhalt hat

Hallo Leute,
ich will eigentlich nur die rechte Zelle kopieren wenn in einer Zelle "LOD" drinnen steht.
Bekomme aber irgendwie die Fehlermeldung unzulässiger Verweiß auf C.
Vorher hatte ich die Zellen mit LOD durch ein "-" ersetzt, das hatte funktioniert.

Code:

Dim C As Range
For Each C In Range("R2:BU200")
'    If C Like "*LOD*" Then C = "-"
    If C Like "*LOD*" Then C = Cells(.Rows.Count, 1).Offset(0, 1)
Next C

 

If Instr(C, "LOD")>0 Then C = Cells(.Rows.Count, 1).Offset(0, 1)

 

Hallo,

Code:

Sub test()

Dim C As Range
For Each C In Range("R2:BU200").Cells
'    If C Like "*LOD*" Then C = "-"
     If C Like "*LOD*" Then C.Value = C.Offset(0, 1).Value
Next C
End Sub

 

Hallo Hajo,
bei deinem Vorschlag bekomme ich folgende Fehlermeldung.

 

Hallo Exl12115,
jo, mercy. Das funktioniert.