Dann versuchs mal so in Spalte B
Sub Suchen()
Dim c, firstAddress
Dim strSuch As String, rngBer As Range
Set rngBer = Range("B2:B" & Range("B65536").End(xlUp).Row)
With rngBer
strSuch = InputBox("Suchen nach:", "Suchen in Spalte: B")
If strSuch = "" Then
Exit Sub
End If
Set c = .Find(strSuch, LookIn:=xlValues)
If c Is Nothing Then
MsgBox "Eintrag nicht vorhanden"
Else
firstAddress = c.Address
Do
c.Activate
Loop While Not c Is Nothing And c.Address <> firstAddress
End If
End With
End Sub
|