autofilter Kriterien über userform
19.05.2003 20:11:46
Thomas
Ich hatte schon einmal Glück in diesem Forum und versuche es nocheinmal. Mein Problem
Ich gebe über eine userform TextBox Kriterien für den Autofilter ein. In BoxBeginn und BoxEnde will ich ein Datum abfragen (zB >1.1.2002) Er trägt die Eingabe auch korrekt in den Autofilter ein. Nur die Abfrage passiert nicht. Beim händisch aufrufen und mit OK bestätigen passt dann die Abfrage.
Vielleicht kennt jemand eine Lösung.
Thomas
Private Sub ExcelTabelle_Click()
Sheets("Kurse").Activate
AbfrageKurse.Hide
BZS1.Hide
If Not ActiveSheet.AutoFilterMode = True _
Then Range("B1").AutoFilter
If BoxBZS <> "" Then
Selection.AutoFilter field:=1, Criteria1:=BoxBZS
End If
If BoxArt <> "" Then
Selection.AutoFilter field:=3, Criteria1:=BoxArt
End If
If BoxBeginn <> "" Then
Selection.AutoFilter field:=4, Criteria1:=BoxBeginn
End If
If BoxEnde <> "" Then
Selection.AutoFilter field:=5, Criteria1:=BoxEnde
End If
ActiveCell.CurrentRegion.SpecialCells(xlVisible).Copy
Sheets("Ausgabe").Activate
Range("A1").Select
ActiveCell.PasteSpecial Paste:=xlPasteAll
End Sub