Option Explicit
Sub Test()
Dim rngFirst As Excel.Range
Dim rngResult As Excel.Range
With Worksheets("Table").Columns("A")
Set rngResult = .Find(What:="Edeka", LookIn:=xlValues, LookAt:=xlPart, SearchOrder:=xlByColumns, _
MatchCase:=False, MatchByte:=False)
If Not rngResult Is Nothing Then
Set rngFirst = rngResult
Do
Call MsgBox("Edeka gefunden in Zelle '" & rngResult.Address & "'", vbInformation)
Set rngResult = .FindNext(rngResult)
Loop While rngResult.Address <> rngFirst.Address
End If
End With
End Sub