Suchen Inputbox Abbrechen sucht leere Zellen
17.10.2013 18:55:55
rieckmann
ich habe hier eine "Suchen" Inputbox.
Klappt so weit ganz gut, nur wenn die Inputbox aufgerufen ist,
und dann auf "Abbrechen" geklickt wird, sollte er gleich die Sub beenden,
ohne weitere Abfragen
Kann da jemand helfen ?
Gruß
Fred
Hier der Code:
Sub Schaltfläche17_Klicken()
Dim Sh As Worksheet
Dim GZelle As Range
Dim FStelle$
Dim SBegriff
SBegriff = InputBox("Bitte Suchbegriff eingeben:")
For Each Sh In Worksheets
Sh.Activate
Set GZelle = Sh.Cells.Find(SBegriff)
If Not GZelle Is Nothing Then
FStelle = GZelle.Address
Do
GZelle.Activate
If MsgBox("Weiter", vbYesNo + vbQuestion) = vbNo Then Exit Sub
Set GZelle = Cells.FindNext(after:=ActiveCell)
If GZelle.Address = FStelle Then Exit Do
Loop
End If
Next Sh
End Sub