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

Flexibler Autofilter ohne leere Zellen

Forumthread: Flexibler Autofilter ohne leere Zellen

Flexibler Autofilter ohne leere Zellen
26.03.2014 12:11:58
Stevo
Hallo zusammen,
ich bin VBA-Neuling und scheitere gerade daran, einen flexiblen Filter in VBA zu basteln. Insgesamt funktioniert alles ganz ordentlich. Einziges Problem ist, dass die leeren Zellen permanent mitgefiltert werden, obwohl ich versucht habe, diese mit "" auszuschließen.
Der flexible Filter liegt im Tabellenblatt "Filter-Auswahl". Dort habe ich im Bereich A5:A10 verschiedene Filter-Vorgaben gemacht, u.a. auch "" um leere Zellen auszuschließen.
Das Tabellenblatt "Unternehmen" ist der Zielbereich, in den ich das Filterergebnis kopieren möchte.
Das Tabellenblatt "Gesamt" ist der Datenbereich, der gefiltert werden soll.
Hier die relevanten Code-Sequenzen:

Sub AutoFilter_Unternehmen()
Dim rngFilterRange As Range
Dim lngCriteriaCount As Long
Dim arrCriteria() As String
Sheets("Unternehmen").Cells.Clear
Sheets("Gesamt").Select
lngCriteriaCount = 10
ReDim arrCriteria(0 To lngCriteriaCount - 1)
arrCriteria(0) = Sheets("Filter-Auswahl").Range("a5")
arrCriteria(1) = Sheets("Filter-Auswahl").Range("a6")
arrCriteria(2) = Sheets("Filter-Auswahl").Range("a7")
arrCriteria(3) = Sheets("Filter-Auswahl").Range("a8")
arrCriteria(4) = Sheets("Filter-Auswahl").Range("a9")
arrCriteria(5) = Sheets("Filter-Auswahl").Range("a10")
Set rngFilterRange = Sheets("Gesamt").Range("a10:i10000")
rngFilterRange.AutoFilter Field:=9, _
Criteria1:=arrCriteria(), _
Operator:=xlFilterValues
Set rngFilterRange = Nothing
Range("a10").Select
Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Unternehmen").Range("a5").PasteSpecial xlPasteValuesAndNumberFormats
With Sheets("Gesamt")
If .AutoFilterMode Then
If .FilterMode Then
.ShowAllData
End If
End If
End With
Sheets("Gesamt").Select
End Sub

Was müsste ich tun, damit die leeren Zellen aus dem Filter ausgeschlossen werden?
DANKE EUCH,
Stevo

Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Flexibler Autofilter ohne leere Zellen
27.03.2014 02:10:31
fcs
Hallo Stevo,
passe das Einlesen der Filterwerte so an, dass die die Größe des Arrays dynamisch an die Anzahl der nicht leeren Zellen im Bereich A5:A10 auf Blatt Filterauswahl angepasst wird.
Sieht dann etwa wie folgt aus.
Gruß
Franz 
Sub AutoFilter_Unternehmen()
Dim rngFilterRange As Range
Dim lngCriteriaCount As Long
Dim arrCriteria() As String
Sheets("Unternehmen").Cells.Clear
Sheets("Gesamt").Select
lngCriteriaCount = 0
For Each rngFilterRange In Sheets("Filter-Auswahl").Range("a5:a10").Cells
If rngFilterRange.Value  "" Then
lngCriteriaCount = lngCriteriaCount + 1
ReDim Preserve arrCriteria(1 To lngCriteriaCount)
arrCriteria(lngCriteriaCount) = rngFilterRange.Text
End If
Next
Set rngFilterRange = Sheets("Gesamt").Range("a10:i10000")
rngFilterRange.AutoFilter Field:=9, _
Criteria1:=arrCriteria(), _
Operator:=xlFilterValues
Set rngFilterRange = Nothing
Range("a10").Select
Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Unternehmen").Range("a5").PasteSpecial xlPasteValuesAndNumberFormats
With Sheets("Gesamt")
If .AutoFilterMode Then
If .FilterMode Then
.ShowAllData
End If
End If
End With
Sheets("Gesamt").Select
End Sub

Anzeige
AW: Flexibler Autofilter ohne leere Zellen
27.03.2014 08:18:11
Stevo
Überragend! Danke Dir, Franz.
Viele Grüße
Stevo
;

Forumthreads zu verwandten Themen

Leere Zellen ignorieren
Stef

Hallo zusammen
ich habe unter dem Tabellenblatt Namens "Personal!"
eine Personalliste welche Pro Zeile eine Person und deren Eigenschaften steht
Nun Filtere ich mit der unten stehenden Formel gewisse Personen in "Tabelle1"
Tabelle1
A33=WENN(Personal!L3>0;Personal!C3;0)~...
10.10.2011 14:57:28
Thread-ID: 1233193
8 Beiträge
Makro Anpassung: leere Zellen nicht ignorieren
Robert74

Hallo liebe Community,
ich hab vor einiger Zeit schon einmal in diesem Forum gepostet und mir wurde auch super geholfen bei meinem Problem. Ich war sehr erstaunt wie nett und hilfsbereit die leute waren und dachte mir, ich Versuch es nocheinmal mein Problem zu schildern.
Ich habe ein be...
19.04.2012 13:32:50
Thread-ID: 1260056
3 Beiträge
Funktion AnzahlLeereZellen(A1:B3) geht nicht
Diethelm Kiesel

Versuche die Funktion AnzahlLeereZellen zu benutzen. Excel tut aber so als ob es dieses Funktion nicht kennt. Muß sie irgenwie nachinstalliert werden?
01.07.2002 10:12:45
Thread-ID: 132600
2 Beiträge
Spalte m. Faktor multipl., leere Zellen ignorieren
Katinka
Hallo ihr lieben Excel-Könner,
leider habe ich bisher nicht die Lösung für mein Problem gefunden, deshalb hier die Frage.
Um die bedingte Formatierung anzuwenden, müssen etliche Zahlen einer Tabelle, die aus einer .txt-Datei kommen, erst noch mit 1 multipliziert werden. Das soll folgender C...
19.04.2015 14:17:15
Thread-ID: 1421691
9 Beiträge
Anzahl ohne Duplikate, leere Zellen ignorieren
Bonduca01

Hallo,
Der Code unten gibt mir in Tabelle 1 Zelle (3,8) die Anzahl der Zellen ohne Duplikate aus.
Leider zählt der Code auch die leeren Zellen mit.
Gibt es eine Möglichkeit, dass er die leeren Zellen nicht zählt? Sub TT() Worksheets("Tabelle1").Activate Cells(3, 8) = Anzahl End Su...
14.07.2015 10:39:10
Thread-ID: 1436244
4 Beiträge
Autofilter und leeren von zellen
zellen

Hallo Leute
Ich versuch einen Autofilter per VBA zu Filtern und anschliesend die Zellen zu leeren. Allerdings funktioniert es nur bedingt.
Wenn ich die Spalten eingeblendet habe löscht er mir die Zellen, wenn gewisse spalten ausgeblendet sich werden diese Zellen nicht geleert.
Ein P...
22.04.2016 10:21:11
Thread-ID: 1489613
7 Beiträge
Leere Zellen ignorieren
Markus

Liebes Forum,
wie müsste ich folgenden Code anpassen, damit bei einer leeren Zelle, diese auch leer bleibt und sich nur dann ein Hyperlinkpfad einfügt, sobald die Zelle einen Inhalt zum jeweiligen Zielordner besitzt?
Sub Hyperlink() Dim Zelle As Range Dim rngSpalte As Range Set rngSpalt...
11.06.2016 12:02:17
Thread-ID: 1498304
5 Beiträge
Anzeige
Inhalt der List und leere Zellen ignorieren
Ben

hallo gibt es einen Befehl in meinem Code der leere Zellen in der liste ignoriert?
So das ich eine untereinander gereite liste habe?
Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean) Dim i As Integer Dim strAuswahl As String For i = 0 To ListBox1.ListIndex If ListBox1...
17.08.2016 14:05:01
Thread-ID: 1509780
17 Beiträge
Leere Zellen ignorieren
alex_de_souza

Hallo,
ich habe folgenden Code, der auch wunderbar funktioniert hat: Private Sub Workbook_Open() Dim rngZelle As Range Dim wks As Worksheet Set wks = ThisWorkbook.Worksheets("Tuncel") For Each rngZelle In wks.Range("H3:H40") If Month(rngZelle.Value) = Month(Date) And Day(rngZelle.Value) = D...
18.09.2018 09:26:58
Thread-ID: 1646109
11 Beiträge
leeren zellen ignorieren
mehmet


hallo forum,
wie kann ich das folg. probl. loesen:in spalte "f2:f20" steht etwas, teilweise auch leere zellen.
in spalte "f21" steht "z" als abbruchbedingung.wie kann man das ganze so gestalten, so das man die inhalte "f2:f20"
in zb. "i2:i" eintraegt und die leeren zellen von "f2:f...
19.01.2003 22:36:41
Thread-ID: 206025
12 Beiträge
spez. Filter nichtleer Felder
Bernhard

Hallo Leute,kurze Frage, wie kann ich in einem Bereich einen Spezialfilter setzen, der nicht leere Felder anzeigt. Bei Autofilter wird auch die darunterliegende Tabelle ausgeblendet und "" mag Exel nicht. Wäre super, wenn Ihr mir helfen könntet.Gruß Bernhard


10.03.2003 13:59:27
Thread-ID: 229972
3 Beiträge
ComboBox: leere Zellen in Dropdown ignorieren
Christoph
Hallo zusammen,
ich habe in einer Combobox den RowSource-Bereich festgelegt.
Allerdings sollen die leeren Zellen ignoriert werden. (vgl: Daten-Gültigkeit-Liste)Wie geht das bei ner ComboBox?In einer zweiten Box, deren RowSource von der Auswahl der ersten abhängig ist (über Case-Unterscheidun...
16.03.2003 19:48:35
Thread-ID: 232637
5 Beiträge
Anzeige
Anzeige

Infobox / Tutorial

Flexibler Autofilter ohne leere Zellen

Schritt-für-Schritt-Anleitung

Um einen flexiblen Autofilter in Excel zu erstellen, der leere Zellen ignoriert, kannst Du den folgenden VBA-Code verwenden. Dieser Code passt sich dynamisch an die Anzahl der nicht leeren Zellen an und filtert entsprechend.

  1. Öffne Excel und drücke ALT + F11, um den VBA-Editor zu öffnen.
  2. Füge ein neues Modul hinzu: Rechtsklick auf "VBAProject" > Einfügen > Modul.
  3. Kopiere und füge den folgenden Code in das Modul ein:
Sub AutoFilter_Unternehmen()
    Dim rngFilterRange As Range
    Dim lngCriteriaCount As Long
    Dim arrCriteria() As String
    Sheets("Unternehmen").Cells.Clear
    Sheets("Gesamt").Select
    lngCriteriaCount = 0

    For Each rngFilterRange In Sheets("Filter-Auswahl").Range("A5:A10").Cells
        If rngFilterRange.Value <> "" Then
            lngCriteriaCount = lngCriteriaCount + 1
            ReDim Preserve arrCriteria(1 To lngCriteriaCount)
            arrCriteria(lngCriteriaCount) = rngFilterRange.Text
        End If
    Next

    Set rngFilterRange = Sheets("Gesamt").Range("A10:I10000")
    rngFilterRange.AutoFilter Field:=9, _
    Criteria1:=arrCriteria(), _
    Operator:=xlFilterValues

    Set rngFilterRange = Nothing
    Range("A10").Select
    Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Unternehmen").Range("A5").PasteSpecial xlPasteValuesAndNumberFormats

    With Sheets("Gesamt")
        If .AutoFilterMode Then
            If .FilterMode Then
                .ShowAllData
            End If
        End If
    End With

    Sheets("Gesamt").Select
End Sub
  1. Schließe den VBA-Editor und kehre zu Excel zurück.
  2. Führe das Makro aus, um die Daten zu filtern.

Häufige Fehler und Lösungen

  • Leere Zellen werden weiterhin gefiltert: Stelle sicher, dass der Code korrekt angepasst ist, um leere Zellen zu ignorieren. Überprüfe die Bedingungen in der Schleife, die die Werte aus dem Filterbereich einliest.

  • Der Autofilter funktioniert nicht: Überprüfe, ob die Daten im richtigen Format vorliegen und dass der Filterbereich korrekt definiert ist.

Alternative Methoden

Wenn Du keine VBA-Lösung verwenden möchtest, kannst Du auch die Excel-Filterfunktion nutzen:

  1. Wähle die Daten aus, die Du filtern möchtest.
  2. Gehe zu „Daten“ > „Filter“.
  3. Klicke auf den Dropdown-Pfeil der Spalte, die Du filtern möchtest.
  4. Deaktiviere das Häkchen bei „(Leer)“, um leere Zellen zu ignorieren.

Diese Methode ist einfach und erfordert keine Programmierung, jedoch weniger Flexibilität im Vergleich zu VBA.

Praktische Beispiele

Angenommen, Du hast eine Liste von Unternehmen in der Tabelle „Gesamt“ und möchtest nur die Unternehmen anzeigen, die in einer bestimmten Kategorie sind. Mit dem oben genannten VBA-Skript kannst Du leere Zellen in der Filterauswahl ignorieren und nur die relevanten Daten anzeigen.

Tipps für Profis

  • Verwende immer ReDim Preserve, um das Array dynamisch zu erweitern, ohne die bestehenden Daten zu verlieren.
  • Teste den Code schrittweise, um sicherzustellen, dass jeder Teil wie gewünscht funktioniert.
  • Dokumentiere Deine VBA-Codes mit Kommentaren, damit Du und andere später nachvollziehen können, was jeder Teil des Codes bewirken soll.

FAQ: Häufige Fragen

1. Wie kann ich sicherstellen, dass leere Zellen nicht in meinen Filterergebnissen erscheinen?
Durch die Implementierung eines VBA-Codes, der nur nicht leere Zellen in das Filterkriterium aufnimmt.

2. Was ist der Unterschied zwischen dem Excel-Filter und VBA?
Der Excel-Filter ist für einfache Filtervorgänge gedacht, während VBA mehr Flexibilität und Anpassungsmöglichkeiten bietet, insbesondere bei großen Datenmengen oder komplexen Kriterien.

Beliebteste Forumthreads (12 Monate)

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