Hab ein kleines Problem. Der folgende Code läuft zwar und ich erhalte auch mein gewünschtes Ergebnis, aber ich bekomm am Ende eine Fehlermeldung: "Object variable or With block variable not set".
Bin nich so fit, kann mir evt. einer helfen, dass Problem zu lösen?
Hier der Code:
Sub test()
With ActiveSheet.Range(Cells(4, 22), Cells(Range("V65536").End(xlUp).Row, 22))
Set nr = .Find("", LookIn:=xlValues)
If Not nr Is Nothing Then
firstAddress = nr.Address
Do
x = nr.Offset(-1, 0).Value
nr.Value = x
Set nr = .FindNext(nr)
Loop While Not nr Is Nothing And nr.Address <> firstAddress
End If
End With
End Sub
Hoffe ihr könnt mir weiterhelfen.
Hier die Datei (Makro ausführen!)
--> https://www.herber.de/bbs/user/25260.xls
Danke und Gruss
Michl