Zeilen zählen

Bild

Betrifft: Zeilen zählen
von: gerhard
Geschrieben am: 23.11.2003 18:32:44

Hallo,
Wie kann ich in einer Datenbank die Anzahl der gefilterten Datensätze
(Datensätze ab Zeile B3) in der Zelle E2 sowie in der Statuszeile via VBA anzeigen lassen?

Vielen Dank

Bild


Betrifft: AW: Zeilen zählen
von: Nepumuk
Geschrieben am: 23.11.2003 18:49:05

Hallo Gerhard,
so geht's:

Option Explicit
Public Sub zaehlen()
    Dim lngZeile As Long, lngZaehler As Long
    For lngZeile = 3 To Cells(65536, 2).End(xlUp).Row
        If Not Rows(lngZeile).Hidden Then lngZaehler = lngZaehler + 1
    Next
    Cells(2, 5) = lngZaehler
    Application.StatusBar = CStr(lngZaehler) & " gefilterte Datensätze"
End Sub
Public Sub reset()
    Application.StatusBar = False
End Sub


Code eingefügt mit: Excel Code Jeanie

Gruß
Nepumuk


Bild


Betrifft: AW: Zeilen zählen
von: Gerhard
Geschrieben am: 24.11.2003 14:11:36

Wie bekomme ich dieses Marko zum laufen?
Wo muß ich es hineinkopieren?
Wie muß ich es ansprechen?

Gruß
Gerhard


Bild

Beiträge aus den Excel-Beispielen zum Thema " Zeilen zählen"