Makro Excel Suche

Sub AlleZellenSuchenDieMitSuchbegriffAnfangen()

  Const c_SUCHBEGRIFF As String = in
  
  Dim s_text As String, r As Range, s_Suchbegriff As String
  Dim Zelle As Range, ersteAdresse As String, ws As Worksheet
  Dim ret As Integer
  
  Set ws = ActiveSheet
  
 ->### Hier könntest Du den Inhalt von B2 laden , aber ohne Stern->###
  
  s_Suchbegriff = c_SUCHBEGRIFF
  
 ->Such-Range alle benutzten Zellen
  Set r = ws.Range(ws.Cells(1, 1), _
                   ws.Cells.SpecialCells(xlCellTypeLastCell))

 ->erste Suche
  Set Zelle = r.Find(What:=c_SUCHBEGRIFF, _
                    LookIn:=xlValues, _
                    Lookat:=xlPart, _
                    SearchOrder:=xlByColumns, _
                    SearchDirection:=xlNext, _
                    MatchCase:=True)->Groß/Kleinschreibung beachten
  If Not Zelle Is Nothing Then
    ersteAdresse = Zelle.Address
    Do
     ->Zellinhalt als String
      s_text = Zelle.Value
     ->fängt mit Suchbegriff an ?
      If Left(s_text, Len(s_Suchbegriff)) = s_Suchbegriff Then
        Zelle.Select
        ret = MsgBox( _
                Fundstelle  & Zelle.Address & vbLf & _
                Wollen Sie weitersuchen ?, _
                vbDefaultButton1 + vbQuestion + vbYesNo)
        If ret = vbNo Then Exit Sub
      End If
     ->nächste Suche
      Set Zelle = r.FindNext(Zelle)
    Loop While Not Zelle Is Nothing And Zelle.Address <> ersteAdresse
  End If
Aufraeumen:
  Set ws = Nothing: Set r = Nothing: Set Zelle = Nothing
End Sub