wie finde ich die 1. Zeile wenn ich gefiltert habe.
Mein Filterbereich ist in der Zeile 7, wenn also durch das Filtern links als
1.gefilterte Zeile 25 ist soll mir (als Test MSGBOX) die 25 angezeigt werden. (Tabelle A7:U)
mfg walter
Function FindFirstRow_in_Filter(myDataBase As Range) As Long
FindFirstRow_in_Filter = myDataBase.SpecialCells(xlVisible).Row
End Function
Sub Test_Anfang()
Dim le
le = Range("A7").End(xlDown).Row
Dim ze
ze = FindFirstRow_in_Filter(Range("A7:U" & le))
MsgBox ze
End Sub
Sub Test_Anfang()
Dim le
le = Range("A2").End(xlDown).Row
MsgBox Cells(le, 1)
End Sub
Sub Test_Anfang()
Dim le
le = Range("A7").End(xlDown).Row
MsgBox Cells(le, 1)
End Sub
Sub Walter()
Dim iRow As Long, iRowT As Long
iRow = 8
Do Until IsEmpty(Cells(iRow, 1))
If Rows(iRow).Hidden = False Then
iRowT = iRow
Exit Do
End If
iRow = iRow + 1
Loop
MsgBox iRowT
End Sub