habe schon mal versuchr aber leider
bekomme das nicht ganz ohne fehlermeldung hin
wer kann mal schauen
Private Sub CommandButton2_Click()
Dim pNr1 As Variant
Range("F4").Select
pNr1 = InputBox("Tag")
With Range("F4")
Sheets.(ActiveSheet.CheckBoxAlle.Value) = True Then
.AutoFilter Field:=6, Criteria1:="=" & pNr1
.AutoFilter Field:=9, Criteria1:="<>"
Range("F4").Select
End If
End With
End Sub
danke achim h.