habe folgendes als Makro bzw. im Modul, mal von einem Forumsteilnehmer erhalten,
was auch die 1.Zeile bei einer selektion in einer Listbox anzeigt.
Function FindFirstRow_in_Filter(myDataBase As Range) As Long
FindFirstRow_in_Filter = myDataBase.SpecialCells(xlVisible).Row
End Function
Sub Typen_Anfang()
az = FindFirstRow_in_Filter(Range("E7:F7"))
Dim az
MsgBox az
End Sub
Mein Filter ist gesetzt in der Zelle E7+F7, es wird mir auf der Tabelle aber
immer 7 angezeigt, obwohl die 1. sichtbare Zelle Zeile18 ist.
Kann mir jemand helfen ?
Gruß Walter