fehlermeldung abfangen
14.05.2006 12:25:40
Tina
mit folgendem code lösche ich einzelne reihen:
Sub reihe_weg()
Dim letzter_eintrag As Long
Dim i As Long
letzter_eintrag = Cells(Rows.Count, 1).End(xlUp).Row
For i = 1 To letzter_eintrag
Columns("B:B").Select
selection.Find(What:="test", After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False).Activate
ActiveCell.Select
Rows(ActiveCell.Row).Select
selection.Delete Shift:=xlUp
Next i
End Sub
wenn nun in spalte B keine zelle mehr mit demeintrag "test" gefunden wird bricht der code ab und gibt ne fehlermeldung.
wie kann ich das verhindern.
danke schön für eure hilfe
gruss Tina
Anzeige