Filtern via Button mit Farbänderung
01.03.2016 13:55:55
Arne
Oh mann ich und VBA ....aaarrrrggg! Ich hoffe, ihr könnt mir helfen...
Das Problem versuch ich mal so einfach wie möglich zu beschreiben, daher nachfolgend an einem simplen Beispiel erklärt:
Ich habe eine Tabelle mit 2 Spalten:
Werte Spalte1: "rot", "grün"
Werte Spalte2: "a", "b"
Je Spalte möchte ich folgende Filter-Buttons haben, also:
Spalte 1: "zeige alle", "zeige nur rot", "zeige nur "grün"
Spalte 2: "zeige alle", "zeige nur a", "zeige nur b"
Wird in Spalte 1 ein Button angeklickt, soll sich die Farbe ändern. Wenn ich in Spalte 2 ein Button anklicke ebenfalls, so dass man sieht, welche Auswahl man pro Spalte getroffen hat.
Folgendes habe ich schon gemacht:
1) Je Spalte 3 CommandButton eingefügt (= 6 Stück)
2) Wie folgt programmiert:
'automatisches filtern in Spalte 1:
Private Sub CommandButton1_Click()
ActiveSheet.ListObjects("Tabelle1").Range.AutoFilter Field:=1
End Sub
Private Sub CommandButton2_Click()
ActiveSheet.ListObjects("Tabelle1").Range.AutoFilter Field:=1
"rot"
End Sub
Private Sub CommandButton3_Click()
ActiveSheet.ListObjects("Tabelle1").Range.AutoFilter Field:=1
"grün"
End Sub
'automatisches filtern in Spalte 2:
Private Sub CommandButton1_Click()
ActiveSheet.ListObjects("Tabelle1").Range.AutoFilter Field:=2
End Sub
Private Sub CommandButton2_Click()
ActiveSheet.ListObjects("Tabelle1").Range.AutoFilter Field:=2
"a"
End Sub
Private Sub CommandButton3_Click()
ActiveSheet.ListObjects("Tabelle1").Range.AutoFilter Field:=2
"b"
End Sub
Jetzt fehlt mir aber noch die Geschicht mit der Farbe und ich habe KEINE AHNUNG! :-(
Vielen Vielen Vielen Dank im Voraus!!!!!