'entwickelt von Winfried Radner
'e-mail: Wolf.W.Radzinski@gmx.de
'Benutzung frei - ohne Gewähr

'+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
'+
'+ Suche in einer Selection (in Areas Reihenfolge) nach dem Inhalt der aktiven Zelle
'+
'+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

Sub suchen_in_selection_areas()
suchwert = ActiveCell ' zum testen eingefügt
Dim a As Range
Dim r As Range
Dim r1 As Range
For Each a In Selection.Areas
Set r = a.Find(suchwert)
Set r1 = r
Do While Not r Is Nothing
      r.Activate
      MsgBox "gefunden"
      Set r = a.FindNext(r)
      If r.Address = r1.Address Then Set r = Nothing
      Loop
Next a
MsgBox "Keine (weiteren) Übereinstimmungen!"
End Sub