Private Sub CommandButton1_Click()
Dim Bereich, Gefunden, Zelle
Dim ErsteZelle
Set Bereich = [A1:AZ600]
Set Zelle = Bereich.Find(Cells(2, 9), lookat:=xlWhole)
If Not Zelle Is Nothing Then
ErsteZelle = Zelle.Address
Set Gefunden = Zelle
Do
Set Zelle = Bereich.FindNext(after:=Zelle)
If Zelle.Address <> ErsteZelle Then
Set Gefunden = Union(Gefunden, Zelle)
End If
Loop Until Zelle.Address = ErsteZelle
Gefunden.Select
Else
MsgBox "Suchbegriff nicht gefunden !"
End If
End Sub