Gibt es eine möglichkeit, alle selektierten Zellen (sie können sich auch in unterschiedlichen Spalten befinden) in einer For-Schleife zu iterieren und nach einem bestimmten wert zu durchsuchen?
lg alex
Sub test()
Dim a As Range
Set a = Selection.Find(what:="Hi")
If Not a Is Nothing Then MsgBox a.Address
End Sub