Inputbox gibt kein Datum zurück
16.07.2003 11:32:32
Martin E.
ich habe folgendes Makro:
Sub NurEinDatumDrucken()
Dim neuDatum As String
Range("a1").Select
Selection.AutoFilter
neuDatum = InputBox("Geben Sie das Erfassungsdatum ein, dass gedruckt werden soll. Format: TT.MM.JJ", vbOKOnly)
If IsDate(neuDatum) Then
Selection.AutoFilter Field:=2, Criteria1:=neuDatum
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Preview:=True, Collate:=True
Selection.AutoFilter
Else
MsgBox "Sie haben kein Datum eingegeben", vbOKOnly"
Exit Sub
End If
End Sub
Ich will aus einer fortlaufenden Liste, die über ein ganzes Jahr geht, einen einzelnen Tag ausdrucken.
Das Problem ist, daß keine Auswahl gedruckt wird, obwohl das Datum in der Inputbox richtig eingebeben wurde. Die Zellen sind als Datum formatiert.
Muß ich die Variable anders deklarieren oder habe ich da einen anderen Gedankenfehler?
Danke für Eure Hilfe.
Martin
Anzeige