Option Explicit

Sub suchen2()
    Dim c, firstAddress
    Dim strSuch As String, rngBer As Range
    Set rngBer = Range("C4:C" & Range("C65536").End(xlUp).Row)
    With rngBer
        .Interior.ColorIndex = xlNone
        strSuch = InputBox("Suchen nach:", "Suchen in Spalte: C")
        Set c = .Find(strSuch, LookIn:=xlValues)
        If c Is Nothing Then
            MsgBox "Eintrag nicht vorhanden"
            Exit Sub
        Else
            firstAddress = c.Address
            Do
                c.Interior.ColorIndex = 3
                If MsgBox("Weitersuchen ?", vbQuestion + vbYesNo) = vbYes Then
                    Set c = .FindNext(c)
                Else
                    Exit Sub
                End If
            Loop While Not c Is Nothing And c.Address <> firstAddress
        End If
   End With
End Sub