Sub Bestätigen_Click()                                                      
Dim a As String
 
a = InputBox("Größe")
                Worksheets("Tabelle2").Range("E4").AutoFilter _
                Field:=5, _
                Criteria1:=">=" & a
                Worksheets("Tabelle2").Range("F4").AutoFilter _
                Field:=6, _
                Criteria1:="<=" & a  
                            ' |__________"Frage?"
 
 
End Sub