Für Eure Hilfe wäre ich sehr dankbar.
Option Explicit
Private Sub CommandButton3_Click()
Dim strSearch As String, strFirstAddress As String
Dim objCell As Range
Dim blnAbort As Boolean
strSearch = InputBox("Suchbegriff:", "Suche nach...")
If strSearch vbNullString Then
Set objCell = Columns(2).Find(What:=strSearch, LookIn:=xlValues, LookAt:=xlPart, _
MatchCase:=False)
If Not objCell Is Nothing Then
strFirstAddress = objCell.Address
Do
Do
objCell.Select
If MsgBox("Weitersuchen?", vbQuestion Or vbYesNo, "Abfrage") = vbNo Then
blnAbort = True
Exit Do
End If
Set objCell = Columns(2).FindNext(After:=objCell)
Loop Until objCell.Address = strFirstAddress
If Not blnAbort Then If MsgBox("Letze Fundstelle." & vbLf & vbLf & "Nochmal von _
_
vorne?", _
vbQuestion Or vbYesNo, "Abfrage") = vbNo Then Exit Do
Loop Until blnAbort
Else
MsgBox "nix gefunden"
End If
End If
End Sub