per Inputbox Datum filtern
21.07.2003 13:16:44
Martin
habe diese Frage schon mal gestellt, bin der Lösung aber noch nicht ganz auf die Schliche gekommen.
Ich will mit einem Makro Autofilter setzen, per Inputbox soll dann ein Datum ausgewählt und gefiltert werden, die Auswahl soll gedruckt werden.
Mittlerweile wird nun die Variable als Datums-Variable erkannt, aber im falschen Format. Der Filter wird benutzerdefiniert im Format M/T/JJJJ gefiltert, die Eingabe in der Inputbox mache ich aber in TT/MM/JJ!?
Wer kann mir bitte helfen?
Danke.
Hier das Makro:
Sub FilterSetzenUndDrucken()
Dim neuDatum As Date
Application.ScreenUpdating = False
Sheets("daten").Visible = True
Sheets("daten").Select
Range("a1").Select
Selection.AutoFilter
neuDatum = InputBox("Geben Sie das Erfassungsdatum ein, dass gedruckt werden soll. Format: TT.MM.JJ", "WienWork Kassabuch", vbOKOnly)
If IsDate(neuDatum) Then
Selection.AutoFilter Field:=2, Criteria1:=neuDatum
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Preview:=True, Collate:=True
Selection.AutoFilter
Sheets("daten").Visible = False
Else
MsgBox "Sie haben kein Datum eingegeben", vbOKOnly, "WienWork Kassabuch"
Sheets("Kassastand").Select
Exit Sub
End If
Sheets("Kassastand").Select
End Sub