VBA: "Do until Fehler" - möglich?
23.05.2007 10:41:00
Sven
Ich hätte da eine kleine Frage:
Ist es möglich, in eine Do Schleife quasi eine Fehlerbehandlung einzubauen?
Momentan sieht mein Code so aus:
Sub testen()
On Error GoTo Line123
Do
Range("a1").Select
Cells.Find(What:="|", after:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
, SearchFormat:=False).ClearContents
Loop
Line123: Exit Sub
End Sub
Ich hätte es aber gerne ohne Verweis auf eine andere Zeile.
z.B. so:
Sub testen()
Do Until "FEHLER"
Range("a1").Select
Cells.Find(What:="|", after:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
, SearchFormat:=False).ClearContents
Loop
End Sub
Ist das möglich?
Dankeschön schonmal