Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 11:49:37
Array verwenden
25.04.2024 10:38:52
Bedingte Formatierung per VBA / MaxPoint
25.04.2024 10:30:04
Suche mit MINWENNS und Rückgabe mehrerer Werte
25.04.2024 09:47:49
Daten aus mehreren Dateien untereinander importieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
432to436
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
432to436
432to436
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA - Anzahl gefilterte DS in Variable holen

VBA - Anzahl gefilterte DS in Variable holen
01.06.2004 15:14:18
Eberhard
Ich versuche die Anzahl DS, die online nach der Aktivierung des Autofilters unten links in der Statuszeile erscheint, in eine Variable (und später in eine Zelle) zu holen.
Kann mir jemand "auf die Sprünge" helfen?
P.S. Im Datenblatt selbst erhalte ich das Ergebnis für die leeren Zellen der Spalte 2 z.B. mit =ZÄHLENWENN(B2:B95;"")

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

Betreff
Datum
Anwender
Anzeige
AW: VBA - Anzahl gefilterte DS in Variable holen
PeterW
Hallo Eberhard,
versuch es mal mit Teilergebnis bzw. in VBA Subtotal.
Gruß
Peter
AW: VBA - Anzahl gefilterte DS in Variable holen
01.06.2004 19:50:59
Philipp
Hallo Eberhard
Ich ermittle jeweils die Datensätze durch Zählen der Areas-Zeilen, was mit einer For-Each-Schleife erledigt wird. Das ist m.E. am einfachsten, da die Grösse des Datenbereiches nicht bekannt sein muss und auch auf leere Zellen nicht geachtet werden muss. Bei einer Formellösung wie =TEILERGEBNIS(3;B2:B95) muss man den Zellbereich angeben (und dieser kann sich ja ändern, z.B. durch Hinzufügen oder Löschen von Zeilen). Zudem muss man sich in der Formel auf eine bestimmte Spalte festlegen. Sobald jedoch in der Spalte leere Zellen vorkommen, liefert TEILERGEBNIS ein falsches Resultat, weil nur nicht-leere Zellen gezählt werden.
Der Nachteil meiner Lösung (bzw. einer VBA-Lösung ganz allgemein) ist halt, dass die Makroausführung angestossen werden muss - durch Klick auf einen Button oder wie auch immer. Das Makro kann leider nicht als benutzerdefinierte Excelfunktion verpackt werden, weil dann CurrentRegion und SpecialCells(xlVisible) nicht mehr korrekt funktionieren.

Sub CountRows()
Dim rngArea As Range
Dim lngRowCount As Long
For Each rngArea In ActiveSheet.Range("A1").CurrentRegion. _
SpecialCells(xlVisible).Areas
lngRowCount = lngRowCount + rngArea.Rows.Count
Next
MsgBox "Gefundene Datensätze: " & lngRowCount - 1
End Sub

PS: Falls die Datenliste nicht in Zelle A1 beginnt, muss die Zelladresse bei 'Range("A1")' entsprechend angepasst werden.
Gruss
Philipp von Wartburg
Anzeige
AW: VBA - Anzahl gefilterte DS in Variable holen
02.06.2004 09:22:46
Eberhard
Hallo Philipp,
vielen Dank für diese ausführlichen Ausführungen!!! Ich bin sicher, dass dies ein ganz genialer Ansatz ist, diesen (und viele ähnlich gelagerten Fälle) elegant zu lösen.
An die "SpecialCells(xlVisible)" habe ich gestern abend auch noch oft gedacht, kam aber nicht dazu, diesen Ansatz zu verfolgen...
Die Geschichte mit den ...Areas habe ich noch nicht ganz verstanden - aber das kommt wohl erst nach dem 5. mal lesen und v.a. beim Probieren. - Ich hätte gedacht, dass man sich jede Zeile in der For Each-Schleife anschaut und dann den Zähler - wenn sichtbar - um eins hochzählt. Ich werde den Ansatz heute vormittag noch testen - vielen Dank nochmal !!!
Anzeige
AW: VBA - Anzahl gefilterte DS in Variable holen
03.06.2004 08:00:03
Eberhard
Hallo Philipp,
bin erst abends zum Probieren gekommen - es hat auf Anhieb geklappt! - Suuuuper -
Ich hab mir die "SpecialCells(xlVisible).Areas" mit Hilfe von .select mal im Einzelschritt angeschaut und dabei visuell bestätigt bekommen (und kapiert), dass der Ansatz genial ist!!!
Hab viel dazugelernt - nochmals vielen Dank!

74 Forumthreads zu ähnlichen Themen

Anzahl der Zeilen steuern
Alex

Guten Morgen Liebe Excel Anwender,
auch zu diesem Problem gibt es sicher schon Beiträge im Forum, konnte sie leider nicht Finden. Und zwar möchte ich die Anzahl der Zeilen steuern die mit Formeln gefüllt werden.
Z.B
Anzahl der Zeilen 3
A1
A2
A3
...
02.10.2008 07:20:00
Thread-ID: 1013790
2 Beiträge
Anzeige
Wert bestimmt Anzahl der zu kopierenden Zeilen VBA
Maja

Hallo,
ich Suche eine Formel mit der ich folgenden Code modifizieren kann:
Sub Uebergabe() Dim i As Integer Dim k As Integer Dim iRowT As Integer Const zz = 1 flagg = False Sheets("Vorlage_Angebot_Sicht").Activate Sheets("Vorlage_Angebot_Sicht").Range("D2").Select i = 0 iRowT = 10 Do...
18.12.2008 13:24:00
Thread-ID: 1033843
5 Beiträge
Anzahl Codezeilen ermitteln
Joachim

Hi,
Kurze Frage
geht es eingentlich per VBA, die Anzahl der Zeilen Code, aus dem ein komplettes Projekt besteht, zu ermitteln ?
Falls Ja, wie ?
Danke
Joachim
22.07.2009 14:40:58
Thread-ID: 1090543
27 Beiträge
Anzeige
Anzahl Datenzeilen ermitteln
Lutz

Hallo,
ich möchte die Anzahl der Datenzeilen ermitteln.
Der Datenbereich kann unterschiedlich groß sein.
Bei eingeschaltetem Autofilter sollen nur die sichtbaren Werte gezählt werden.
Mit der funktion Teilergebnis kam ich nicht weiter, da die Spalten nicht durchgängig befüllt si...
09.03.2010 09:53:40
Thread-ID: 1144479
8 Beiträge
Anzahl der Zeilen innerhalb einer Spalte
Klaus

Hallo Forum,mit welcher Formel bekomme ich in Excel die Anzahl der Zeilen
in einer Spalte angezeigt?BsP
A1 01EZ0201
B1 01EM9999
C1 01ZZ9805Das Ergebnis in D1 müsste dann 3 ergeben.
Danke
Klaus
23.05.2002 12:25:24
Thread-ID: 123053
2 Beiträge
Anzahl Zeilen (Line) in Zelle ermitteln
Jockel

Hallo,
gibt es in Excel (VBA o. Funktion) eine Methode, die Anzahl der Zeilen (lines), die es in einer Zelle an Text gibt, zu zählen ?
Habe dazu was im Internet gefunden, das funktioniert aber nicht richtig:
AnzahlZeilen = Range("A2").End(xlDown).Row
Also, ich brauche als Ergebn...
06.07.2011 11:58:44
Thread-ID: 1221084
4 Beiträge
Seitenanzahl in Wiederholzeilen integrieren
Marco

Guten morgen zusammen,
ich möchte die Seitenzahlen in meinen Dokumentenkopf integrieren. D.h. ich möchte die Seitenzahlen nicht standardmäßig oben/unten rechts/links einfügen, sondern in einer bestimmten Zelle in meinen Wiederholzeilen oben.
Ist das ohne Makroprogrammierung möglich. (Da...
25.07.2011 09:13:20
Thread-ID: 1223462
9 Beiträge
Nur sichtbare Zeilen zählen
Ron

Hallo Allerseits
Bin nicht sicher ob ich meinen vorigen Beitrag abgesendet habe.
Darum noch einmal.
Zuerst wünsche ich ein gutes neues Jahr.
Hier meine Frage
Wie kann ich via VBA herausfinden wieviele Zeilen vorhanden sind ohne aber die ausgeblendeten mitzuzählen?
Danke...
03.01.2012 10:10:02
Thread-ID: 1244340
2 Beiträge
Anzeige

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
1
6
4
26
2
7
1
3
8
1
2
5
5
1
1
4
6
11
2
2
12
2
4
5
8