Mehrere Checkboxen in Userform
02.10.2015 11:03:53
Kasi
habe folgendes Problem.
Habe eine Userform mit 9 Checkboxen erstellt.
Diese Checkboxen filtern die Spalte A nach den jeweiligen Buchstaben (A, B usw.)
Das funktioniert bei der Einzelauswahl wunderbar.
Wenn ich mehrere anwähle, wird nur die letzte angezeigt(gefiltert).
Wäre schön wenn mir jemand den Code erweitern könnte.
Hier mein Code:
Private Sub CommandButton1_Click()
If UserForm2.CheckBox1.Value = True Then
ActiveSheet.Range("$A$6:$J$1305").AutoFilter Field:=1, Criteria1:= _
"A"
End If
If UserForm2.CheckBox2.Value = True Then
ActiveSheet.Range("$A$6:$J$1305").AutoFilter Field:=1, Criteria1:= _
"B"
End If
If UserForm2.CheckBox3.Value = True Then
ActiveSheet.Range("$A$6:$J$1305").AutoFilter Field:=1, Criteria1:= _
"C"
End If
If UserForm2.CheckBox4.Value = True Then
ActiveSheet.Range("$A$6:$J$1305").AutoFilter Field:=1, Criteria1:= _
"D"
End If
If UserForm2.CheckBox5.Value = True Then
ActiveSheet.Range("$A$6:$J$1305").AutoFilter Field:=1, Criteria1:= _
"E"
End If
If UserForm2.CheckBox6.Value = True Then
ActiveSheet.Range("$A$6:$J$1305").AutoFilter Field:=1, Criteria1:= _
"F"
End If
If UserForm2.CheckBox7.Value = True Then
ActiveSheet.Range("$A$6:$J$1305").AutoFilter Field:=1, Criteria1:= _
"G"
End If
If UserForm2.CheckBox8.Value = True Then
ActiveSheet.Range("$A$6:$J$1305").AutoFilter Field:=1, Criteria1:= _
"H"
End If
Me.Hide
End Sub