Hallo Leute,
ich habe ca. 5 Makros aufgezeichnet, die einen Filter steuern. Diese Makros möchte ich jetzt in ein Dropdown-Menü packen und via Dropdown ein bestimmtes makro ausführen. Dabei dachte ich an ein Kombinationsfeld (Formularsteuerelemente). Ich habe auch schon einen Code gebastelt, leider funktioniert der nicht. Nach einfügen des Kombinationfelds und klicken auf "Code anzeigen" bei den Steuerelementen kommt die Private Sub Dropdown1_BeiÄnderung () - Zeile.
Die Werte für das Kombinationsfeld habe ich über Rechtsklick Kombinationsfeld -> Steuerelemente formatieren -> Reiter "Steuerung" -> Eingabebereich eingegeben. Diese befinden sich in $I$7:$I$9. Zudem frage ich mich, ob bei dem Case "alles" als Kriterium (Alles auswählen) stimmt. Hier möchte ich, dass der Filter alle Werte anzeigt.
Bsp: Code für 3 Makros.
Private Sub Dropdown1_BeiÄnderung()
Select Case Dropdown1.Value
Case "Alles"
Sheets("tab 1 Rohdaten").Select
ActiveSheet.Range("$A$23:$EQ$252").AutoFilter Field:=3, Criterial:="(Alles auswählen)"
Sheets("tab 2 Grafik").Select
Case "Arbeit"
Sheets("tab 1 Rohdaten").Select
ActiveSheet.Range("$A$23:$EQ$252").AutoFilter Field:=3, Criteria1:="Arbeit"
Sheets("tab 2 Grafik").Select
Case "Freizeit"
Sheets("tab 1 Rohdaten").Select
ActiveSheet.Range("$A$23:$EQ$252").AutoFilter Field:=3, Criteria1:="Freizeit"
Sheets("tab 2 Grafik").Select
End Select
End Sub
Hoffentlich könnt ihr mir helfen, bin noch ein ziemlicher VBA-Anfänger!
Ich danke euch schon jetzt :)
|