Live-Forum - Die aktuellen Beiträge
Datum
Titel
14.10.2025 15:55:14
wenn zwei Werte aus Liste übereinstimmen, dann wahr
14.10.2025 14:57:29
Wenn Datum in Ferienzeit dann Name angeben
14.10.2025 09:39:44
VBA - Excel speichern und schließen (Laufzeitfehler 91)
13.10.2025 19:31:31
VBA Formel mit Bezug auf Überschrift anstatt Spalte
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1104to1108
1104to1108
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

autofilter: Anzahl zeilen

Forumthread: autofilter: Anzahl zeilen

autofilter: Anzahl zeilen
Jochen
Hallo zusammen
ich habe folgendes Problem: Ich möchte per VBA Zeilen kopieren, dei ich vorher per Autofilter selektiert habe. Wenn in der Auswahl aber kein Elemnt enthalten ist, dann kopiert er nur Müll. Daher möchte ich die Anzahl Zeilen ermitteln und das kopieren überspringen, wenn die zeilenzahl = 0 ist.
Leider klappt das so nciht, kann mir einer sagen warum?
Rows("20:100").AutoFilter
Selection.AutoFilter Field:=1, Criteria1:="x"
Selection.AutoFilter Field:=2, Criteria1:="y"
Rows("20:100").Select
Z_Zahl = Selection.Cells.SpecialCells(xlCellTypeConstants).Rows.Count
Danke
Jochen
Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: autofilter: Anzahl zeilen
25.09.2009 15:52:12
Jochen
Sorry, hatte gerade gemerkt, daß ich einen Copy - Paste fehler drin habe.
Die Zeile lautet bei mir
Z_Zahl = Selection.SpecialCells(xlCellTypeVisible).Rows.Count
(funktioniert aber trotzdem nicht)
AW: autofilter: Anzahl zeilen
25.09.2009 16:24:52
Kawensmann
Hallo,
versuch’s mal so:
Dim r As Range
Dim i As Integer
Set r = Rows("20:100")
i = Intersect(r.SpecialCells(xlVisible), r.Columns(1)).Count - 1
MsgBox i & " Zeilen"
Gruß
Kawensmann
Anzeige
AW: autofilter: Anzahl zeilen
25.09.2009 16:37:50
Gerd
Hallo Jochen
oder so.
Sub test()
Rows("20:100").AutoFilter
Rows("20:100").AutoFilter Field:=1, Criteria1:="x", Field:=2, Criteria1:="y"
If Cells(100, 1).End(xlUp).Row = 20 Then
MsgBox "nicht kopieren"
Else
MsgBox "kopieren"
Autofilter.Range.Copy (Tabelle2.cells(1, 1)
End If
End Sub

Anzeige
DANKE !!! o.T.
28.09.2009 10:35:50
Jochen
---
AW: autofilter: Anzahl zeilen
25.09.2009 17:12:13
Daniel
HI
du arbeitest mit Selection, das ist nicht gut, vorallem hier für die Problemstellung, da wir nicht wissen welche Zellen du selektiert hast.
außerdem funktioniert die Rows.Count-Methode nicht bei unterbrochenen Zellbeichen, so wie sie durch das Ausblenden entstehen können, Excel liefert hier keine zuverlässige Zahl.
mit dieser Mehtode könntest du das allerdings lösen:
Sub test()
With ActiveSheet.AutoFilter.Range.SpecialCells(xlCellTypeVisible)
If .Areas.Count = 1 And .Rows.Count = 1 Then
MsgBox "keine Zellen zum kopien vorhanden"
Else
MsgBox "es gibt Zeilen zum kopieren"
End If
End With
End Sub
Gruß, Daniel
Anzeige
;

Forumthreads zu verwandten Themen

variable Zeilenanzahl kopieren, einfügen (VBA)
Alex

Hallo Leute,
In meiner Arbeitsmappe kopiere ich eine! Zeile (aus dem TabBlatt „Grundformular“) - via Doppelklick auf einen Namen in „Übersicht“ - in andere TabBlätter.
(das geht wunderbar)
Sieht jemand eine Möglichkeit ob/wie das ganze mit einer variablen Zeilenanzahl, die im „Grund...
18.03.2009 17:23:56
Thread-ID: 1061522
3 Beiträge
Zeilen nach Einträgen filtern
Joni

Hallo,
ich bin auf der Suche nach einer Lösung für folgendes Problem.
Ich habe eine Liste mit Datensätzen und möchte diese über die Eingabe von Werten "in Echtzeit" filtern. Dies funktioniert mit dem Spezialfilter und folgendem Makro.
Private Sub Worksheet_Change(ByVal Target As Ra...
24.09.2010 18:31:04
Thread-ID: 1179243
3 Beiträge
Zeilen mehrfach nach Einträgen filtern
Joni

Hallo,
ich möchte aus einer Liste Daten heraus filtern. Dabei hilft mir das Makro von Klaus aus meiner vorigen Frage
https://www.herber.de/forum/messages/1179259.html
Zusätzlich möchte ich die gefundenen Zeilen mit meinem ursprünglichen Makro noch filtern. Dann könnte ich zuerst all...
26.09.2010 14:52:36
Thread-ID: 1179331
2 Beiträge
Filtern nach Zeilen
KON

Hallo Experten,
kann man eigentlich im Excel nach Zeilen statt nach Spalten filtern. Wenn JA, wie geht das.
Danke für die Hilfe
Viele Grüße
Kon
06.05.2011 13:57:06
Thread-ID: 1213363
3 Beiträge
Anzeige
Anzahl Zeilen bis zum nächsten Zeilenumbruch
holger

Hallo an Alle,
bin bei meinem Problem schon weiter gekommen.
'ActiveCell.EntireColumn.Cells(neuZeile3, 11).Value = "=SUBTOTAL(9,R[1]C:R[20]C)"
schreibt mir eine Teilsumme in eine Zelle, Summe von der aktiven Zeile plus 20 Zeilen.
Nun ist aber die Anzahl der Zeilen immer anders....
06.01.2012 17:37:53
Thread-ID: 1244962
7 Beiträge
Anzeige
Autofilter nach Zeilenauswahl
Wolle

Hall Beverly,
leider ist mein Beitrag schon geschlossen worden. Ich komme zurück auf deine Antwort von gestern und möchte noch mal darauf antworten.
Sicherlich benötige ich nicht die ganze Zeile für die Einträge in den Autofilter.
Es ist nur schneller kopiert als erst einen Bereich...
31.01.2013 07:44:35
Thread-ID: 1296836
3 Beiträge
Anzeige
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
Zeilen löschen, nach filtertext
Michael

Hallo alle zusammen,
https://www.herber.de/bbs/user/108310.xlsx
Zusätzlich zu meinem gestrigen Beitrag stehe ich "Überraschung" wieder vor einer Herausforderung.
Ich habe eine Ist, Filter, und Soll Tabelle eingefügt.
Die Ist Liste soll mithilfe der Filter tabelle angepasst werd...
21.09.2016 12:16:04
Thread-ID: 1515557
14 Beiträge
Ersten Zeilen nach Filter kopieren...
Julia

Hallo Ihr Lieben,
ich bräuchte bitte eure Hilfe bei neinem kleinen VBA Projekt.
Und zwar möchte ich gerne die 10größte Werte von Spalte 15 von Tabelle2 in Tabelle1 kopieren.
den Filter zu setzten klappte noch.
Aber wie kann ich denn die ersten 10 gefilterten Zeilen kopieren?...
24.04.2017 08:14:52
Thread-ID: 1554292
6 Beiträge
Zeilen nach Datum filtern per Button
Wegi

Liebe User,
ich würde gerne meine Bearbeitungsliste mittels 1-2 Makros effizienter / schneller machen. Ich möchte z. B. auf Konpfdruck alle Zeilen, die in Spalte H das heutige Datum enthalten, anzeigen (der Rest soll dadurch ausgeblendet sein). Das geht natürlich auch mittles Autofilter, i...
19.05.2017 13:21:24
Thread-ID: 1559377
14 Beiträge
Anzeige
eine bestimmte Anzahl Leerzeilen nach jeder Zeile
bneyer

Hallo
Ich sollte in einer grossen Tabelle mit über 700 Zeilen zwischen allen Zeilen eine bestimmte Anzahl Leerzeilen einfügen.
Wie kann ich das am einfachsten tun?
Besten Dank bereits im Voraus für deine Hilfe!
bneyer
18.03.2018 21:44:13
Thread-ID: 1614937
6 Beiträge
Spezialfilter nach leeren Zeilen suchen
Fritz

hikann man mit einem spezialfilter nach leeren zellen suchen, soetwas wie im kriterienbereich LEER eingeben oder sowas, komme nicht weiter!!!Danke fritzante

04.04.2003 10:36:27
Thread-ID: 240261
2 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige
Anzeige

Infobox / Tutorial

Anzahl gefilterter Zeilen in Excel ermitteln

Schritt-für-Schritt-Anleitung

Um die Anzahl der gefilterten Zeilen in Excel zu ermitteln, kannst du VBA verwenden. Hier ist eine einfache Schritt-für-Schritt-Anleitung:

  1. Öffne das Excel-Dokument, in dem du die Anzahl gefilterter Zeilen ermitteln möchtest.

  2. Drücke ALT + F11, um den VBA-Editor zu öffnen.

  3. Füge ein neues Modul hinzu: Rechtsklick auf "VBAProject (dein Dokument)" > Einfügen > Modul.

  4. Kopiere und füge den folgenden Code in das Modul ein:

    Sub AnzahlGefilterteZeilen()
   Dim r As Range
   Dim i As Integer
   Set r = Rows("20:100") ' Definiere den Bereich, den du filtern möchtest
   i = Intersect(r.SpecialCells(xlVisible), r.Columns(1)).Count - 1
   MsgBox i & " Zeilen sind gefiltert."
End Sub

  5. Schließe den VBA-Editor und kehre zu Excel zurück.

  6. Führe das Makro aus: ALT + F8, wähle "AnzahlGefilterteZeilen" und klicke auf "Ausführen".

Häufige Fehler und Lösungen

  • Fehler: "Laufzeitfehler 1004"

    • Ursache: Der ausgewählte Bereich enthält keine sichtbaren Zellen.
    • Lösung: Überprüfe, ob der Autofilter aktiv ist und visible Zellen vorhanden sind.

  • Fehler: Falsche Anzahl angezeigter Zeilen

    • Ursache: Verwendung der Rows.Count Methode, die nicht bei unterbrochenen Zellbereichen funktioniert.
    • Lösung: Verwende SpecialCells(xlVisible) für eine präzise Zählung.

Alternative Methoden

Wenn du keine VBA nutzen möchtest, kannst du auch die Excel-Funktionalitäten verwenden:

  1. Setze den Autofilter auf deine Daten.
  2. Am unteren Bildschirmrand zeigt Excel die Anzahl der gefilterten Zeilen an. Suche nach der Formulierung wie "x von y Einträgen".

Diese Methode ist allerdings nicht so präzise wie die VBA-Lösungen, besonders wenn du die Anzahl in einer Zelle darstellen möchtest.

Praktische Beispiele

Hier sind einige praktische Beispiele zur Verwendung von VBA, um die Anzahl gefilterter Zeilen zu ermitteln:

  1. Zählen der gefilterten Zeilen in einem bestimmten Bereich:

    Sub ZeilenZaehlen()
   Dim Z_Zahl As Long
   Rows("20:100").AutoFilter Field:=1, Criteria1:="x"
   Z_Zahl = Rows("20:100").SpecialCells(xlCellTypeVisible).Count - 1
   MsgBox Z_Zahl & " gefilterte Zeilen gefunden."
End Sub

  2. Überprüfen, ob gefilterte Zeilen vorhanden sind:

    Sub CheckFilteredRows()
   With ActiveSheet.AutoFilter.Range.SpecialCells(xlCellTypeVisible)
       If .Areas.Count = 1 And .Rows.Count = 1 Then
           MsgBox "Keine Zellen zum Kopieren vorhanden."
       Else
           MsgBox "Es gibt gefilterte Zeilen."
       End If
   End With
End Sub

Tipps für Profis

  • Nutze Option Explicit am Anfang deines Moduls, um sicherzustellen, dass alle Variablen deklariert sind.
  • Verwende Application.ScreenUpdating = False, um das Flackern des Bildschirms beim Ausführen von Makros zu vermeiden.
  • Wenn du häufig mit gefilterten Daten arbeitest, speichere deine Makros in einer personalisierten Arbeitsmappe (PERSONAL.XLSB), um sie jederzeit nutzen zu können.

FAQ: Häufige Fragen

1. Wie kann ich die Anzahl gefilterter Zeilen in einer bestimmten Spalte ermitteln?
Du kannst die Intersect-Methode verwenden, um nur sichtbare Zellen in einer bestimmten Spalte zu zählen.

2. Funktioniert dieser Code in allen Excel-Versionen?
Ja, der VBA-Code sollte in allen gängigen Excel-Versionen funktionieren, solange die Autofilter-Funktion verfügbar ist.

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige