Formatproblem bei Datumseingabe
10.01.2008 09:04:00
Thomas
eine kurze Verständnisfrage.
Habe folgende, einfache Prozedur zur Bestimmung eines Start- und Enddatums für bestimmte Kalkulationen, wobei als Enddatum das heutige Datum genommen wird, falls ich nichts eingebe.
Sub Eintrag()
Dim StartDate As Date
Dim EndDate As Date
StartDate = InputBox("What is the start date?", "Start Date")
EndDate = InputBox("What is the end date?", "End Date")
Range("D1").Select
ActiveCell = StartDate
ActiveCell.Offset(0, 1).Select
'If empty, take today's date
If EndDate = "" Then ActiveCell = "=TODAY()" Else ActiveCell = EndDate
End Sub
Problem: Wenn ich EndDate als Date deklariere, bekomme ich einen Laufzeitfehler 13 (Typen unverträglich), egal ob ich ein Enddatum eingebe oder nicht. Falls ich nur "Dim EndDate" benutze, funktioniert alles, aber die Zelle ist nicht als Datum formatiert.
Kann ich natürlich nachträglich machen lassen, aber mich interessiert, was genau bei der ersten Version falsch läuft.
Würde mich über eine kurze Aufklärung freuen.
Besten Dank,
Thomas