Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 14:04:05
PDF per VBA ausgeben - Seitenskalierung
19.04.2024 13:58:02
Set Worksheet geht im O365 aber im Excel 2016 nicht
19.04.2024 13:49:38
Per Kopfdruck als pdf speichern und Mail erstellen
19.04.2024 12:58:59
Daten einfügen aus anderem Sheet
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
244to248
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
244to248
244to248
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

gefilterte Zeilen zählen

gefilterte Zeilen zählen
17.04.2003 10:49:44
Florian
Hallo Zusammen,
ich möchte gerne in der Statusleiste angezeigt bekommen, wieviele Datensätze als 'Treffer' des Autofilterkriteriums gefunden wurden.
Dabei scheitere ich am Zählen der Zeilen.
Mir schwebt irgendetwas im Kopf mit specialcells_(xlcelltypevisible) und intersect, aber ich krieg es nicht zusammen.
Könnte mir da bitte jemand helfen?
Grüße aus Aachen,
Florian

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: gefilterte Zeilen zählen
17.04.2003 11:29:42
Nike

Hi,
ganz ohne Makro:
Blende die Statuszeile ein
(Menü:Ansicht/Statusleiste Haken rein)
mach nen rechten Mausklick unten in die linke untere Ecke wo
bereit steht und wähle dort dann Anzahl aus.

Bye

Nike

Re: gefilterte Zeilen zählen
17.04.2003 11:44:00
Florian


Hallo Nike,
dafür müßte ich ja jedesmal die Trefferzeilen markieren.
Folgenden Code hattest Du schonmal im Archiv geschrieben, funktioniert aber leider nicht.
Sowas in der Art stelle ich mir aber prinzipiell vor.

Sub check()
Dim lngZeil As Long
Dim lngSaetze As LongFor lngZeil = 1 To 10000
If Cells(lngZeil, 1).Visible = True And Cells(lngZeil, 1) <> "" Then
lngSaetze = lngSaetze + 1
End If
Next
MsgBox lngSaetze
End Sub

Vielleicht könntest Du da mal rübergucken,
Gruß,
Florian

Anzeige
Re: gefilterte Zeilen zählen
17.04.2003 12:29:20
Yal

Ein Trick:
mach eine zusätliche Spalte, wo für alle Zeile ein 1 steht, z.B. Spalte E.
Es kann z.B. mit eine Formel automatichbefüllt werden:
=(ANZAHL(Ax:Dy)>0)*1
In eine nicht von Filter ausgeblendete Zelle fügt die Formel:
= TEILERGEBNIS(9;E:E)

Teilergebnis bildet die Summe der gefilterte Werte. Da alle 1 sind, ergibt sich damit den Anzahl von gefilterte Zeilen.

Yal


Re: gefilterte Zeilen zählen
17.04.2003 13:05:33
Florian

Hallo,
das ist etwas anderes als ich wollte, aber
habs jetzt selber:

Sub DatensaetzeZaehlen()

Dim rng As Range
Dim zaehler As Variant
Dim i As Variant

For zaehler = 8 To 65000
If ActiveSheet.Cells(zaehler, 1).Value <> "" And ActiveSheet.Rows(zaehler).Hidden = False

Then
i = i + 1
End If
Next
application.statusbar = i

End Sub

Anzeige

299 Forumthreads zu ähnlichen Themen

Gefilterte Dateien in txt exportieren
Gerhard

Namd zusammen
Gibt es eine Möglichkeit ausschliesslich gefilterte Dateien in eine txt Datei zu speichern?
Habe eine grosse Tabelle aus der ich nur einzelne Spalten (andere Spalten sind via VBA ausgeblendet) benötige und aus diesen noch sichtbaren Spalten via Autofilter nochmals eingren...
18.08.2008 21:35:19
Thread-ID: 1002746
4 Beiträge
Anzeige
Filtern, gefilterte Daten benutzen, Suchen und Aus
Merle


Hallo alle zusammen,
ich habe ein mittelschweres Problem. Und zwar habe ich hier ein Beispiel:
https://www.herber.de/bbs/user/55986.xls
In 'Tabelle1' sind ganz viele verschiedene Waren (C17:57) hinterlegt. Ich möchte nun, wenn ich eine dieser Waren rausfilter z.B H025, dass da...
13.10.2008 15:48:00
Thread-ID: 1016087
3 Beiträge
Nur gefilterte Zeilen in ein Textfeld übergeben
Heiko

Hallo an alle,
ich brauche ein wenig Hilfe. Ich bin gerade dabei aus einem ziemlich breiten (unübersichtlich geworden) Sheet die gewünschten Werte in eine Form (Textfeld) zu übergeben.
Ich bekomme es leider nicht hin, dass nur die gefilterten Zeilen im Textfeld erscheinen sollen.
Ic...
05.11.2008 19:59:37
Thread-ID: 1022076
7 Beiträge
Anzeige
Gefilterte Zeilen/ Spalten Kopieren
Falk

Hallo zusammen,
folgendes Problem für mich:
Ich filtere den Bereich von A1:CD1000. Der Filter wird je nach Anforderung auf verschiedene Spalten gesetzt.
In den Zellen von Spalte A befindet sich eine Formel, die den Blattnamen anzeigt wenn in Spalte D und F etwas eingetragen ist anso...
11.11.2008 10:13:33
Thread-ID: 1023442
3 Beiträge
Formel - Anzeige der gefilterten Inhalte
Rocky

Hallo Excelfreunde und zweiäugigen unter den Blinden und Einäugigen,
ich möchte gern einen dynamischen "Querfilter" basteln. Mein Ansatz bisher: Ich kopieren die Tabelle und transportiere diese. dann wird in jede Zelle folgende Formel geschrieben:
=WENN(INDIREKT(ADRESSE(SPALTE()+0;ZEILE...
28.11.2008 08:53:12
Thread-ID: 1028554
4 Beiträge
Gefilterte Spalten anzeigen
Gernot

Hallo zusammen,
habe eine Liste mit 64 Spalten und ca. 5.000 datensätzen, die nach mehreren Kriterien
gefiltert wird(Autofilter). Es ist sehr mühsam, die gefilterten Spalten ausfindig zu machen.
Ich stelle mir vor, alle Spalten, in denen der Filter eingeschaltet ist, in eine Combobo...
05.12.2008 22:51:00
Thread-ID: 1030615
6 Beiträge
gefilterte Daten in Listbox einfügen
Larissa

Hallo,
ich möchte nur gefilterte daten in eine Listbox einlesen. Dieses Makro habe ich hier gefunden:
ClassModule: Artikel
Private Sub Worksheet_Calculate()
Dim iCounter As Integer
lstFilter.Clear
For iCounter = 2 To WorksheetFunction.CountA(Columns(1))
If Rows(iCoun...
17.01.2009 17:30:00
Thread-ID: 1040940
2 Beiträge
Nur gefilterte Daten in die Listbox
Larissa


Hallo,
ich möchte nur gefilterte Daten in der Listbox anzeigen lassen und kriege das nicht hin.
Ich füge mal meinen Code ein:
Private Sub UserForm_Activate() Dim lLetzte As Long Dim lZeile As Long Dim lLibox As Long Application.ScreenUpdating = False With Me.ListBox1 .Co...
17.01.2009 20:14:35
Thread-ID: 1040981
7 Beiträge

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
3
4
2
6
4
2
3
5
1
6
5
10
1
4
1
5
1
6
6
3
2
8
1
2
2