Wiederholen in Msgbox...
25.09.2003 22:14:48
Sylvia
Ich möchte in einer Liste Werte (Text oder Zahl) mit einer Inputbox suchen und zu diesen Werten direkt hinspringen. Falls der Wert gefunden wird ist Ende, falls nicht kommt eine Msgbox mit der Meldung "Wert nicht gefunden" und die Auswahl "wiederholen"
oder "abbrechen". Bei Falscheingaben ist es so das wenn ich einen einen nicht existierenden Wert (Text) eingebe zwar die Meldung "Wert nicht gefunden" kommt, aber bei wiederholen passiert nichts.....
Kann mir jemand erklären was hier falsch ist, bin in VBA noch absoluter Anfänger:
Sub FindenText()
Dim Eingabe As String
Dim Meldung As String
On Error GoTo Errorhandler
Eingabe = InputBox("Bitte den gesuchten Text eingeben!", "Suchen")
Cells.Find(Eingabe, Range("A1")).Select
Exit Sub
Errorhandler:
Meldung = MsgBox("Der Suchtext " & Eingabe & " konnte nicht gefunden werden!", 5, "Fehler")
If Meldung = vbRetry Then Resume
End Sub
p.s.wenn ich Dim Eingabe as Byte angebe kommt wenigstens nach Fehlermeldung und wiederholen das Inputfenster wieder....
Gruß
Sylvia
Anzeige