Sub Beispiel()
Dim i As Integer
Dim Suchwort As String
Dim sRows As String
Dim MaxRows As Integer
Dim rPos As String
Dim Treffer As Boolean
 
[color=green]'Aktive Zelle merken
rPos = ActiveCell.Address
 
[color=green]'Anzahl der Zeilen in Spalte B ermitteln
MaxRows = Cells(Rows.Count, 2).End(xlUp).Row
 
[color=green]'Suchwort eingeben
Suchwort = InputBox("Suche nach:", "Suche in " & MaxRows & " Zeile(n)")
 
[color=green]'Suche mittels Schleife
For i = 1 To MaxRows
 If Cells(i, 2).Value = Suchwort Then
    Treffer = True
    [color=green]'Zeilennummer merken
    sRows = sRows & ";" & i
    [color=green]'Zur Zelle springen
    Cells(i, 2).Select
    [color=green]'Abfrage
    Antwort = MsgBox("Weitersuchen?", vbYesNo, "Beispiel")
     If Antwort = vbNo Then Exit For
 End If
Next i
 
If Treffer Then
 MsgBox "Suchwort '" & Suchwort & "'" & vbCr & _
       "wurde in folgende(n) Zeile(n) gefunden:" & vbCr & _
       Mid(sRows, 2), , "Suche beendet."
Else
 MsgBox "Suchwort wurde nicht gefunden!", , "Suche beendet."
End If
[color=green]'Zur Zelle springen, die vor der Suche aktiv war
Range(rPos).Select
End Sub