gibt es eine Möglichkeit die Adresse aller gleichen Werte in Spalte A auf einer MSGBox anzuzeigen?
Danke und Gruss
Option Explicit
Sub Ausgabe()
Dim Text, RnG As Range, Wert
Text = "Adressen für: " & Range("D1").Value & vbLf
Wert = Range("D1").Value 'SuchWert einstellen in D2
For Each RnG In Range("A2:A101").SpecialCells(xlCellTypeVisible)
If RnG.Value = Wert Then
Text = Text & vbLf & RnG.Address
End If
Next
MsgBox Text
End Sub
Datei: