Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1436to1440
1436to1440
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Schleife um sichtbare(gefilterte) Zeilen zu zählen

Forumthread: Schleife um sichtbare(gefilterte) Zeilen zu zählen

Schleife um sichtbare(gefilterte) Zeilen zu zählen
19.07.2015 14:31:43
Berner
Hallo,
könnte mir mal jemand helfen? ich müsste eine Schleife programmieren um ausgehend von einer Zelle nach oben hin sichtbare Zeilen (die nicht leer sind!) zählen zu können.
Mein Ansatz funktioniert leider nicht:
For i = 1 To Ende
If Cells.SpecialCells(xlCellTypeVisible)(i, 6) "" Then
x = x + 1
End If
Next
MsgBox (x)
End Sub

Anzeige

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Schleife um sichtbare(gefilterte) Zeilen zu zählen
19.07.2015 15:07:03
Nepumuk
Hallo,
warum nicht einfach per TEILERGEBNIS - Funktion?
Gruß
Nepumuk

AW: Schleife um sichtbare(gefilterte) ...
19.07.2015 15:16:10
Herbert
Nepumuk meint so: =TEILERGEBNIS(3;Bereich)
Servus

Nee, meint er bestimmt nicht, ...
19.07.2015 15:39:43
Luc:-?
…Herbert,
wenn schon so, dann 103 statt 3. Evtl Leerzellen wdn dann aber auch nicht mitgezählt. Ob das aber auch sein soll, weiß ja keiner außer dem Fragesteller. Aber da gäbe es auch Möglichkeiten…
Gruß+schöWE, Luc :-?

Anzeige
AW: Leerzellen sollen ja auch nicht mit gezählt...
19.07.2015 15:49:14
Daniel
...werden, Luc!
steht zumindest so im Eingangsposting.
Gruß Daniel

Die geklammerte Bemerkung war mir entfallen!
19.07.2015 17:14:23
Luc:-?
Dann geht's mit TEILERGEBNIS wie von Nepumuk vorgeschlagen, von Herbert „bebeispielt“ und mir berichtigt.
Luc :-?

AW: Schleife um sichtbare(gefilterte) Zeilen zu zählen
19.07.2015 15:47:28
Daniel
Hi
hier mal ein paar Varianten:
For i = 1 To Ende
If Cells(i, 6)  "" And not Rows(i).Hidden then x = x + 1
Next
MsgBox x


for each Zelle in Range("F1:F" & Ende).SpecialCells(xlcelltypevisible)
if Zelle.Value  "" then x = x + 1
next
MsgBox x

wenn in Spalte F feste Werte stehen (dh keine Formeln): 
x = Range("F1:F" & Ende).SpecialCells(xlcelltypevisible).SpecialCells(xlcelltypeconstants, 3). _
count
Msgbox x
um die Idee von Nepumukt nochmal aufzugreifen: 
x = worksheetfunction.SubTotal(3, Range("F1:F" & Ende)
Msgbox x
wobei bei den beiden letztgenannten Varianten die Zellen wirklich leer sein müssen.
eine Zelle, die eine Formel enthält, ist nicht leer, auch wenn das Formelergebnis der Leerstring "" ist.
gruß Daniel
Anzeige

Forumthreads zu verwandten Themen

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
Anzahl Zellen mit gleichen Inhalt / welcher Wert?
StefanS

Hallo zusammen,
...und schon wieder ich - konnte im Archiv nichts finden!
Für Euch bestimmt suuuper einfach, für mich die Hölle.
Ich möchte gerne überprüfen, ob in der Spalte B:B Zellen mit gleichen Inhalt doppel oder mehrfach vorhanden sind und wenn ja, welchen Wert diese Zellen ha...
14.05.2009 14:06:36
Thread-ID: 1075153
5 Beiträge
Anzahl der Zellen mit Inhalt
Paulo

Ich möchte die Anzahl der Zellen eines bestimmten Bereichs mit Inhalt feststellen, also nicht eine Inhaltssumme, sondern nur die Anzahl der Zellen mit einem beliebigen Inhalt (egal, ob Zahl oder Buchstaben), konnte aber im Forum nichts passendes finden.
Eigene Versuche waren vergebliche, ab...
04.11.2011 22:51:45
Thread-ID: 1236699
6 Beiträge
Anzeige
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
In ListBox nur gefilterte Zeilen Anzeigen lasse
Vulferin

Hallo zusammen
ich hab folgenen Code imgebrauch
'In dieser Routine laden wir alle vorhandenen
'Eintr_ge in die ListBox1
ListBox1.Clear 'Zuerst einmal die Liste leeren
lZeile = 2 'Start in Zeile 2, Zeile 1 sind ja die †berschriften
'Schleife solange etwas in der ersten Sp...
24.07.2014 20:01:30
Thread-ID: 1372194
6 Beiträge
in gefilterten Liste > Zellen mit Text zählen
Werner

Hallo Excel-Freunde
ich habe eine Tabelle, in der per Formel in bestimmten Zellen Texte eingetragen werden.
In einer Zelle errechnet ich per Formel, wie häufig ein Text vorkommt
=ZÄHLENWENN(N10:N200;"R*")
Der Text beginnt immer mit einem R...
Kann man diese Formel noch änder...
05.12.2014 15:58:01
Thread-ID: 1396366
3 Beiträge
zählen mit filter
kurt

Hallo allerseits,
ich habe die folgende Formel:
=WENN(ZÄHLENWENN(Datenbank!B:B;B4)=0;"";ZÄHLENWENN(Datenbank!B:B;B4))
funktioniert auch, nun möchte ich aber auch das gezählt wird,
wenn ich in der Datenbank gefiltert habe.
gruß
kurt k
04.03.2015 16:27:38
Thread-ID: 1412756
5 Beiträge
Makro nur für gefilterte und eingeblendete Zeilen
flotschuk

Hey,
ich sitz momentan leider gerade etwas aufm Schlauch.
Ich habe eine Tabelle mit deren Werte ich ein Säulen-Diagramm befülle. Die Färbung der Säulen ist dabei abhängig von bestimmten Tabellenwerten. Für diese Färbung habe ich ein Makro geschrieben, dass soweit auch funktioniert. Alle...
19.03.2015 12:41:30
Thread-ID: 1415949
5 Beiträge
Zählen v. Zeilen mit best. Zahlen nach Autofilter
Uli

Hallo und guten Tag!
ich wollte mir hier eine Zeile zusammenschnippeln, die nur die nicht herausgefilterten (autofilter, nicht manuell ausgeblendeten) Zeilen zählt, in denen ein spezifischer Zahlenbereich drinsteht. Leider klappt es nicht, bin ziemlich neu aber eigentlich sollte ich Funktio...
17.02.2016 12:52:20
Thread-ID: 1476048
3 Beiträge
Anzeige
Anzahl von Zellen mit bestimmten Inhalt
Birgit

Hallo!
Ich habe folgendes Problem:
Die Exeltabelle die ich erstellt habe gibt die Personalplanung für einen Monat wieder. Ich benutze Kürzel wie Fr, Sp (Für Früh- bzw. Spätschicht). Nun möchte ich am Ende jeder Zeile wissen wieviele Stunden ich den einzelenen Mitarbeitern zugeteilt habe....
30.08.2002 10:05:05
Thread-ID: 154548
2 Beiträge
Zahlenwerte in gefilterten Zellen zählen
Dlareg

Hallo allerseits.
Ich versuche krampfhaft in einer Tabelle Zellen zu zählen, die einen Zahlenwert (0,00 bis 100,00) enthalten.
Der auszuwertende Bereich ist B:3 bis B:370.
In diesen Zellen steht als Formel ein Verweis in ein anderes Tabellenblatt.
Ich möchte nach Setzen eines Fi...
14.06.2018 14:12:49
Thread-ID: 1628818
3 Beiträge
Zählenwenn mit mehreren Bedingungen und Autofilter
Helmut

Ich hatte schon einmal zu diesem Thema gepostet und mir wurde hier perfekt geholfen.
https://www.herber.de/cgi-bin/callthread.pl?index=1667750
Nun wollte ich das Ganze noch erweitern, sodass nur noch die angezeigten Zeilen berücksichtigt werden (Autofilter). Jedoch gelingt mir das über...
01.02.2019 10:30:31
Thread-ID: 1672707
4 Beiträge
Anzeige
Anzeige

Infobox / Tutorial

Sichtbare (gefilterte) Zeilen in Excel zählen

Schritt-für-Schritt-Anleitung

Um die Anzahl der sichtbaren (gefilterten) Zeilen in Excel zu ermitteln, kannst Du entweder VBA verwenden oder die TEILERGEBNIS-Funktion nutzen. Hier zeige ich Dir beide Methoden.

Methode 1: Mit VBA

  1. Öffne den Visual Basic for Applications (VBA) Editor durch Drücken von ALT + F11.

  2. Füge ein neues Modul hinzu.

  3. Kopiere den folgenden Code in das Modul:

    Sub ZähleGefilterteZeilen()
   Dim x As Long
   Dim Ende As Long
   Ende = Cells(Rows.Count, 6).End(xlUp).Row ' Bestimme die letzte Zeile in Spalte F
   For i = 1 To Ende
       If Cells(i, 6).Value <> "" And Not Rows(i).Hidden Then
           x = x + 1
       End If
   Next i
   MsgBox x
End Sub

  4. Schließe den VBA-Editor und führe das Makro aus.

Methode 2: Mit TEILERGEBNIS

  1. Wähle eine Zelle aus, in der das Ergebnis angezeigt werden soll.

  2. Gib die folgende Formel ein:

    =TEILERGEBNIS(103; F:F)

    Diese Formel zählt die Anzahl der nicht-leeren Zellen in der gefilterten Liste.

Häufige Fehler und Lösungen

  • Fehler: Die Zählung stimmt nicht überein.

    • Lösung: Stelle sicher, dass die Zellen tatsächlich leer sind und keine Formeln enthalten, die ein leeres Ergebnis zurückgeben. Verwende =TEILERGEBNIS(103; F:F) für eine präzisere Zählung.

  • Fehler: VBA gibt eine Fehlermeldung zurück.

    • Lösung: Überprüfe, ob Du die richtige Spalte und den richtigen Bereich in Deinem Code spezifiziert hast. Achte darauf, dass die Spalte existiert und Daten enthält.

Alternative Methoden

Eine weitere Möglichkeit, die Anzahl der gefilterten Zeilen zu zählen, besteht darin, die AGGREGAT-Funktion zu verwenden. Diese Funktion kann auch mit gefilterten Daten umgehen:

=AGGREGAT(3; 5; F:F)

Hierbei zählt 3 die nicht-leeren Zellen und 5 ignoriert die versteckten Zeilen.

Praktische Beispiele

  1. Zählen aller sichtbaren Zellen in Bereich F1:F100:

    x = Range("F1:F100").SpecialCells(xlCellTypeVisible).Count
MsgBox x

  2. Zählen gefilterter Zeilen mit Werten:

    x = WorksheetFunction.Subtotal(103, Range("F1:F100"))
MsgBox x

Tipps für Profis

  • Nutze SpecialCells in VBA, um gezielt nur gefilterte Zellen zu zählen.
  • Experimentiere mit der AGGREGAT-Funktion, um unterschiedliche Zählmethoden zu testen.
  • Achte darauf, dass Du nur mit echten Zellen arbeitest, um die Genauigkeit der Zählung zu gewährleisten.

FAQ: Häufige Fragen

1. Wie kann ich die Anzahl der gefilterten Zeilen in einer bestimmten Spalte zählen? Du kannst die TEILERGEBNIS-Funktion verwenden, um gezielt die Zellen in einer bestimmten Spalte zu zählen, z.B. =TEILERGEBNIS(103; A:A).

2. Was ist der Unterschied zwischen TEILERGEBNIS und AGGREGAT? TEILERGEBNIS ist einfacher zu verwenden, während AGGREGAT mehr Flexibilität bietet, z.B. das Ignorieren von Fehlern und versteckten Zeilen.

Beliebteste Forumthreads (12 Monate)

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