schleife solange bis kein Suchergebniss
20.03.2003 08:44:30
Hubert
weiß jemand wie dieses makro aussehn muss damit die schleife nur so oft wiederholt wird bis alle suchergebniss in der tabelle gelöscht sind?
For i = 1 To 1500
Cells.Find(What:="\", After:=ActiveCell, LookIn:=xlValues, LookAt:= _
xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext,
MatchCase:= _
False).Select
Selection.Delete Shift:=xlToLeft
Gruß
Hubert