Datum via Inputbox
03.07.2018 19:30:58
Simone
ich verzweifle gerade an folgender Aufgabenstellung:
Ich möchte mit einer Inputbox ein Datum in die nächste freie Zelle bei Spalte A in einem anderen Tabellenblatt eintragen lassen.
Die Inputbox ruft es mir auf, allerdings wird der eingegeben Wert als Formel erkannt, die Excel mit einer Fehlermeldung blockiert.
Hier mein Code:
Sub ErfassungDatum()
Dim Datum As Date
Worksheets("Datenquelle").Activate
Zeile = Cells(Range("A1").End(xlDown).Row).Offset(1, 0)
Datum = Application.InputBox("Bitte geben Sie das Datum ein?", "Datum", , , , , , _
vbInformation)
If Datum = Date Then
Datum = Cells(A & Zeile)
Else
MsgBox "Der eingegeben Wert ist kein Datum. Bitte prüfen!", vbInformation, "Bitte prüfen"
End If
End Sub
Vielleicht kann mir ja jemand weiterhelfen :-)
Danke schon mal im voraus!