kann mir jemand erklären warum das nicht funzt funktioniert?
liegt es daran, dass ich "SpalteR" als range deklariert habe, anstatt als string?
nur wie durchsuche ich dann den "string"?
Möchte nur folgendes:
Falls Werte in der Spalte (Bereich von nur 5 zeilen) sind, löschen und schauen ob in der nächsten auch welche vorkommen...dann wieder löschen usw.
lg
adrian
SpalteR = .range(.Cells(Zeile + 1, SpalteL + 1), .Cells(Zeile + 5, SpalteL + 1))
With SpalteR
For Each Cell in SpalteR
Set Found = .Find(what:=Cells.Value, LookIn:=xlValues, Lookat:=xlWhole)
next
While Not Found Is Nothing
SpalteR.ClearContents
Set SpalteR = SpalteR.Offset(0, 1)
For Each Cell in SpalteR
Set Found = .Find(what:=Cells.Value, LookIn:=xlValues, Lookat:=xlWhole)
next
Wend
End With