Sub Bestätigen_Click()
Dim a As String
 
Range("A1").Select
 
a = Cells(1, 1)
    If a = "alle" Then
        Worksheets("Tabelle1").Range("A2").AutoFilter _
        field:=3, _
        Criteria1:="alle"
            Else
                Worksheets("Tabelle1").Range("A2").AutoFilter _  ' hier muss 
                ' dann wohl das obige eingebaut werden????
                field:=1, _
                Criteria1:=a
                    End If
End Sub