ich möchte mit einer Inputbox ein Datum abfragen:
Dim d As Date
d = InputBox ("Eingansdatum eingeben:")
If Not IsDate Then
Range(ActiveCell.Offset(-i + 2, 0), ActiveCell).FormulaR1C1 = "=today()"
Else
Range(ActiveCell.Offset(-i + 2, 0), ActiveCell).FormulaR1C1 = d
End If
Leider kommt die Fehler Meldung:
IsDate = Fehler beim Kompilieren
................Argument nicht optionel
was mache ich falsch?
Danke Serge