Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.05.2024 15:12:40
count distinct / zählenwenn liefert bei leerer Zelle=> DI
19.05.2024 11:25:26
Zeilen gemäss spalte 2 Kopieren und unterhalb einfügen
19.05.2024 10:56:53
Teilnehmer nach Wunschprojekt sortieren
19.05.2024 10:44:47
Auswahl in MultiSelect Lsitbox
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
340to344
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
340to344
340to344
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zeilen zählen

Zeilen zählen
23.11.2003 18:32:44
gerhard
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

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zeilen zählen
23.11.2003 18:49:05
Nepumuk
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
Anzeige
AW: Zeilen zählen
24.11.2003 14:11:36
Gerhard
Wie bekomme ich dieses Marko zum laufen?
Wo muß ich es hineinkopieren?
Wie muß ich es ansprechen?

Gruß
Gerhard

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige