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
Microsoft Office 2016 Lizenz vs Produktschlüssel und Erfahrungen mit Rakuten?

Hallo Community,

nächste Woche läuft meine Office 365er Lizenz für 5 PCs aus und ich bin es irgendwie leid jedes Jahr neu zu suchen und neue Lizenzen zu erwerben, daher wollte ich nun mit meinen 2 PCs plus Laptop meiner Frau auf Office 2016 umziehen.

Da hatte ich gehofft es gibt auch eine Variante mit mindestens 3 Lizenzen, doch die konnte ich leider nicht finden. Dann habe ich nach "günstigen" Varianten gesucht und kam zu Rakuten.de. Da ich da noch nie gekauft hatte und es etwas shady wirkte wollte ich mal nach eurer Erfahrung mit Rakuten fragen. Darüber hinaus wurde ich dann dort bei einer Office 2016 Home and Student für 35€ (bestpreis) darauf hingewiesen, dass "Sie erwerben einen Produktschlüssel für das Microsoft Produkt MS Office 2016 Home and Student. MS Office 2016 Home and Student ist eine Marke z.B. der Microsoft Corporation. Wir weisen darauf hin, dass Sie lediglich den Produktschlüssel und keine Lizenz erwerben. Unsere Produktschlüssel stammen aus dem Hause Microsoft. Es handelt sich nicht um Fälschungen. Die Produktschlüssel wurden von uns geprüft."

Was ist denn der Unterschied zwischen Lizenz und Produktschlüssel? Und mache ich mich da strafbar oder brauch man immer eine Lizenz (welche deutlich teurer ist?) ich bin etwas aufgeschmissen und versteh nicht ganz die Unterschiede. Würde mich über Eure hilfe sehr freuen und vielleicht ein Hinweis was ihr mir für 3 PCs raten würdet.

Viele Grüße Flo :)

PC, Computer, Microsoft Word, Microsoft, Office, Microsoft Excel, Office 2016
Excel Speichert nicht! Was tun?

Einige Mitarbeiter an meiner Uni klagen darüber, dass sich Excel-Dateien nicht immer abspeichern lassen. In dem spezifischen Fall einer Mitarbeiterin trat dieses Problem schon einmal auf, mit einer Neuinstallation von Office trat es kurzzeitig nicht mehr auf, aber heute wieder. Sie hat mehrere Arbeitsmappen parallel zueinander geöffnet, und wenn sie eine bestimmte Mappe speichern will, speichert Excel eine andere geöffnete Arbeitsmappe, aber nicht jene, die gespeichert werden soll. Auch der Versuch zu Drucken führt zu der Druckvorschau einer anderen Datei. Nach einiger Zeit stürzt Excel dann komplett ab, sprich alle offenen Arbeitsmappen werden geschlossen, ohne gesichert zu werden. Der Absturz macht sich durch ein Dialogfeld 'Excel funktioniert nicht mehr. ->Programm schließen' bemerkbar, andere Optionen als Programm schließen gibt es nicht. Wir wissen nicht weiter, und unsere Kollegen sind genervt, denn wenn man regelmäßig speichern WILL, es aber nicht klappt, frustriert das schon sehr.

Ich hoffe jemand kann mir/uns helfen, dieses Problem ohne ständige Neuinstallationen von Office zu beheben.

Randinformationen:

+Office 2013

+Nutzer sind keine Administratoren, ich (EDV Abteilung) jedoch schon

+Wir arbeiten mit Gruppenrichtlinien und dem Configuration Manager

+Windows 10 Enterprise LTSB

Vielen Dank im Voraus für jeden Vorschlag, Tipp, oder Erfahrungswert!

Grüße, Christin

Office, Microsoft Excel, speichern
Wie erstelle ich eine variable intelligente Tabelle?

Eine Bestandsauswertung wird in Excel(2010) ausgegeben und tägl. in meine zu analysierende Tabelle in einem Blatt (Abl.Schleifpuffer) abgelegt bzw. überschrieben. In diesem Blatt soll mittels VBA eine intelligente Tabelle erstellt werden.

Per Aufzeichnung klappt das ganz gut, nur gibt es da paar Haken:

  1. sollte sich die Auswertung (Quelle) ändern aufgrund Programmanpassungen, verschieben sich auch die Zellen. So beginnt sie nicht von A11 sondern evtl. von B12

  2. erstelle ich eine intelligente Tabelle, so gibt mir das Makro immer die Größe von der zuerst erstellten Tabelle "$A$11:$N$853" wieder, sodass bei der nächsten Auswertung die Zeilen ab 854 gar nicht mit einfließen. D.h. die Auswertung wird tägl. gemacht und die Länge ist definitiv variabel.

Wie bekomme ich Excel dazu das er automatisch erkennt "Ab Spalte A und Zeile 11 beginnt die Tabelle" und endet bei Spalte A und Zeile 999.

Derzeit ist die Aufzeichnung so verlaufen:

    Sub konvertiere_Abl_als_Tabelle()
'
' konvertiere_Abl_als_Tabelle Makro
'

'
    Sheets("Abl. Schleifpuffer").Select
    Range("A11").Select
    Range(Selection, Selection.End(xlToRight)).Select
    Range(Selection, Selection.End(xlDown)).Select
    ActiveSheet.ListObjects.Add(xlSrcRange, Range("$A$11:$N$853"), , xlYes).Name = _
        "Abl.Schleifpuffer"
    Range("Abl.Schleifpuffer[#All]").Select
End Sub

Für eure Unterstützung wäre ich sehr dankbar.

Bild zum Beitrag
Microsoft Excel, Makro, VBA

Meistgelesene Beiträge zum Thema Microsoft Excel