ListObjects - Nur sichtbare Zeilen zählen

Sub Zeilenanzahl_ermitteln()



'Intelligente Tabelle in Variable speichern

    Dim tbl As ListObject

    Set tbl = Tabelle1.ListObjects("tbDaten")



' Anzahl der Zeilen in der intelligenten Tabelle ermitteln

    zeilenanzahl = tbl.ListRows.Count

    

' Ergebnis in einer Messagebox anzeigen

    MsgBox "Dein Datensatz '" & tbl.Name & "' hat " & zeilenanzahl & " Zeilen."



End Sub