Wie kann ich in VBA-Excel einen Filter setzen über einer CheckBox?

Hi,

ich suche eine einfachere Lösung für meine UserForm um über CheckBoxen meine Tabelle zu Filtern.

Im grunde möchte ich also, wenn ich einen Wert ankreuze soll dieser Gefiltert werden.

Wie im Beispiel (unten):

FKEP und KKEP angekreuzt = FKEP und KKEP angezeigt.

Nur KKEP angekreuzt = nur KKEP angezeigt

"Wert" der gefiltert werden soll | CheckBox Name
 FKEP                              CBFilterFKEP
 KKEP                              CBFilterKKEP
 KfB                               CBFilterKfB
 ausgesch.                         CBFilterausgesch
 beendet                           CBFilterbeendet
 EQ - KfB                          CBFilterEQKfB
 EQ - FKEP                         CBFilterEQFKEP

Mein momentaner Code schaut wiefolgt aus:

    Private Sub CBFilterFKEP_Click()

If CBFilterFKEP = True Then

    Sheets("Gesamtdaten").Range("$A$2:$EQ$502").AutoFilter Field:=3, Criteria1:=Array( _
    "FKEP"), Operator:=xlFilterValues

If CBFilterKKEP = True Then

    Sheets("Gesamtdaten").Range("$A$2:$EQ$502").AutoFilter Field:=3, Criteria1:=Array( _
    "FKEP", "KKEP"), Operator:=xlFilterValues

End If
End If
End Sub

Private Sub CBFilterKKEP_Click()

    If CBFilterKKEP = True Then

        Sheets("Gesamtdaten").Range("$A$2:$EQ$502").AutoFilter Field:=3, Criteria1:=Array( _
        "KKEP"), Operator:=xlFilterValues

    If CBFilterFKEP = True Then

        Sheets("Gesamtdaten").Range("$A$2:$EQ$502").AutoFilter Field:=3, Criteria1:=Array( _
        "KKEP", "FKEP"), Operator:=xlFilterValues

    End If
    End If
    End Sub

Soweit so gut ... nun habe ich aber nur FKEP und KKEP "abgestimmt" ... muss ich nun alle 5 Werte auch "abstimmen" ? Das wird nämlich ein SEHR langer code ... und ich könnte wetten das es in VBA viel leichter geht ...

Hat wer eine Idee von euch?

MfG Tim

Microsoft Excel, Filter, VBA, Sortieren, Tabelle, checkbox
Komplexe Vergleich/Sverweis funktion in Excel?

Hallo, Community.

Ich habe eine recht umfassende Tabelle für die Ausleihe von Geräten auf Arbeit.

  • In dieser Tabelle gibt es eine Spalte mit Gerätetyp (TV, Computer, Maus, etc) in welcher nur festgelegte Werte durch Datenüberprüfung ausgewählt werden können.
  • Zusätzlich gibt es eine Spalte mit Ausleihbeginn und Ausleihende (FEST!) Ich plane die Ausleihen also und es wird davon ausgegangen, dass z.b. eine Maus am 01.01.17 abgeholt und am 14.07.17 wiedergebracht wird.
  • noch dazu werden Ausleihen weit vorher angemeldet und in der Liste (unten angefügt) vermerkt welche nicht nach irgendwelchen Kriterien Sortiert ist oder werden soll

Nun möchte ich eine "Auflistung" machen, Wie viele Geräte des jeweiligen Typs ich besitze (fester schon bekannter Wert) und wie viele AKTUELL ausgeliehen bzw schon verplant sind.

Problem dabei ist nur, dass wenn ich ZÄHLENWENN() in der Spalte des Typs anwende, auch die Geräte mitgezählt werden, die noch nicht ausgeliehen wurden, oder schon zurückgegeben wurden (liste geht also in Vergangenheit und Zukunft)

Ich muss also davon Trennen, dass

TYP     START       ENDE
Maus    01.01.17    14.07.17
Maus    16.07.17    24.08.17
Maus    01.09.17    12.12.17

Nur ein Gerät ist und nicht (wie aktuell) 3, weil ZählenWENN 3x Maus liest

Wie stelle ich das an? habt ihr da eine Formel für mich?

Typ befindet sich in der Spalte F(ab 4) und Start in Spalte H(ab 4) und Ende in Spalte I(ab 4)

Zählerstand kann in A50:A60 ausgegeben werden (10 verschiedene ausleihbare Typen vorhanden)

VIELEN DANK!

Computer, Windows, Microsoft, Office, Microsoft Excel, programmieren, Kalkulation, Tabelle

Meistgelesene Fragen zum Thema Tabelle