AutoFilter nur sichtbare Zeilen zählen (ohne Trick
25.07.2003 22:01:49
RainerW
im Betreff meine ich mit "ohne Trick", sichtbare Daten in neue Tabelle kopieren
und dann zählen.
Auch nicht eine extra Spalte mit 1 und dann über Teilergebnis(9;...) oder
über eine Schleife - dauert bei meinem Rechner 2,8 Sek.
Es sei denn meine folgende Schleife ist zu langsam:
Sub SichtbareZeilenZaehlen()
Dim lngRow As Long
Dim i As Long
Dim k As Integer
lngRow = Cells(Rows.Count, 1).End(xlUp).Row - 1
For i = 1 To lngRow
If Not Rows(i).Hidden Then
k = k + 1
End If
Next i
MsgBox k
End Sub
Hier ist mein Code wo ich kein richtiges Ende finde:
Sub SichtbareZeilenZaehlen()
Dim lngRowGes As Long ' Ermittelt die GesamtAnzahl der Zeilen im
' Arbeitsblatt (kann ja varieren)
Dim lngRow As Long ' Anzahl Datensätze ohne Überschriftenzeile
Dim lngZellen As Long ' Anzahl sichtbarer Zellen in Spalte A
lngRowGes = Cells(Rows.Count, 1).Row
lngRow = Cells(Rows.Count, 1).End(xlUp).Row - 1
lngZellen = Cells.Columns("A:A").SpecialCells(xlCellTypeVisible).Count
MsgBox lngRow
MsgBox lngZellen
MsgBox (lngRowGes - lngZellen)
End Sub
Es muss doch etwas geben die sichtbaren Zeilen zu ermitteln. Die AutoFilter-
Eigenschaften gaben auch nichts her.
Gruss Rainer