if  Cell(treffer).Value = "" Then
'Code für Tabellenteile füllen
else
'Code für Suche wiederholen
End If

Sub Find_mehrmals()
'*************************************************
'* H. Ziplies                                    *
'* 24.11.08                                      *
'* http://Hajo-Excel.de                          *
'*************************************************
    Dim RaFound As Range
    Dim FirstAddress As String
    Dim Search As String
    Dim LoLetzte As Long
    Dim LoI As Long
    Dim ByMldg As Byte
    Search = Worksheets("Tabelle2").Range("A1")
    With Worksheets("Tabelle1")
        LoLetzte = IIf(IsEmpty(.Range("A65536")), .Range("A65536").End(xlUp).Row, 65536)
        '   von Peter Haserodt
            Set RaFound = .Range("A1:A" & LoLetzte).Find(Search, .Range("A" & LoLetzte), , xlWhole, , xlNext)
        '   *****
            If RaFound Is Nothing Then Exit Sub  'falls nicht gefunden wird sub verlassen
            If MsgBox("Gefunden in Zelle " & RaFound.Address(0, 0) & " ist dies richt richtige Zelle !!!" _
                , vbYesNo + vbQuestion, "Abfrage") = 6 Then
                RaFound.Interior.ColorIndex = 3
            Else
                FirstAddress = RaFound.Address
                Do
                    Set RaFound = .Range("A1:A" & LoLetzte).FindNext(RaFound)
                    If RaFound.Address = FirstAddress Then Exit Sub
                    If MsgBox("Gefunden in Zelle " & RaFound.Address(0, 0) & " ist dies richt richtige Zelle !!!" _
                        , vbYesNo + vbQuestion, "Abfrage") = 6 Then
                        RaFound.Interior.ColorIndex = 3
                        Exit Do
                    End If
                    If RaFound.Row = LoLetzte Then Exit Do
                    LoI = LoI + 1
                Loop
            End If
    End With
    Set RaFound = Nothing
End Sub