Zeilen zählen

• Zeilen zählen von gerhard vom 23.11.2003 18:32:44
  • AW: Zeilen zählen - von Nepumuk am 23.11.2003 18:49:05
    • AW: Zeilen zählen - von Gerhard am 24.11.2003 14:11:36

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

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

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

Excel-Beispiele zum Thema " Zeilen zählen"
Zeilenhöhe in cm festlegen	Summe gefilterter Zeilen
Zeilenumbruch	Leere Zeilen löschen
Spalten/Zeilen aus- und einblenden	Zeilenumbruch in Formel erzwingen
Zeilen und Spalten über ein Drehfeld ein- und ausblenden	Alle Kopf-/Fußzeilen-Festlegungen löschen
Fußzeilen beim Öffnen eintragen	Zellinhalte zeilenweise sortieren