mit Inputbox nach Datum selektieren
18.08.2003 09:32:50
ralfH
ich benötige Hilfe bei folgendem Problem:
Ich habe eine Tabelle in der Auftragseingänge notiert sind. Ich möchte mir nun durch eine Datumseingabe in eine Inputbox alle Aufträge für einen Tag selektieren. - siehe Code:
Sub M_Auftrag_nach_Datum()
dim aufdat as string
aufdat = inputbox(prompt:="Datum eingeben!")
windows("aufkopf.xls").activate
sheets("Auftragseingang).select
columns("A:F").select
selection.autofilter field:=2, Criteria1="=" & aufdat
End Sub
Bei Eingabe des Datums in die Inputbox in normaler Schreibweise tt.mm.yyyy wird kein Ergebnis angezeigt (obwohl bei Kontrolle des Benutzerdefinierten Filters das Datum korrekt übergeben wurde)
Wenn ich das Datum in der Schreibweise tt/mm/yyyy in die Inputbox schreibe funktioniert alles.
Was muss ich ändern damit die Selektion mit der Eingabe tt.mm.yyyy funktioniert?
Schon mal besten Dank
RalfH