Wie kann ich nach dem selektieren eines Filters dessen gewählte Adresse auslesen? Bsp. Im Filter habe ich die Namen. Wenn nun der Name xy Selektiert wurde möchte ich gerne in einer MsgBox den Namen haben.
Besten Dank für Eure Hilfe.
Gruss Markus
Sub ErsteSichtbare()
Const s = 1 'Spalte
Dim i As Long
For i = 2 To Cells(65536, s).End(xlUp).Row
If Cells(i, s).EntireRow.Hidden = False Then
MsgBox Cells(i, s)
Exit For
End If
Next i
End Sub