Datum aus Eingabebox in Zelle schreiben
25.08.2005 14:43:18
Martin
Hi!
Folgendes: in einer Tabelle habe ich danke eurer Hilfe das folgende Makro untergebracht:
Sub datum()
If ActiveSheet.FilterMode Then ActiveSheet.ShowAllData
Dim datstart As Date
Dim datEnde As Date
'On Error GoTo ERRORHANDLER
datstart = CDate(InputBox("Bitte Startdatum eingeben. Beispiel für Eingabe 17.12.04", "Startdatum", Date))
datEnde = CDate(InputBox("Bitte Enddatum eingeben. Beispiel für Eingabe 18.12.04", "Enddatum", Date + 3))
Range("G20").AutoFilter Field:=1, Criteria1:=">=" & Format(datstart, "YYYY-MM-DD"), Operator:= _
xlAnd, Criteria2:="<=" & Format(datEnde, "YYYY-MM-DD")
End Sub
Kann ich das eingegebene Start und Enddatum auch noch parallel in zwei Zellen schreiben? Und wenn ja, wie geht das?
Hintergrund wäre dann, daß ich die Möglickeit hätte, entsprechnd angebunden Grafiken
hinsichtlich der X-Achse zu ändern.
Danke im voraus!
Martin
Anzeige