Wie kann ich beim programmieren einer INPUTBOX dem mitgegebenen Wert eine Formatierung mitgeben. Konkret gesagt möchte ich per INPUTBOX ein Datum in eine Zelle bringen und mit diesem Datum weiterarbeiten. Leider ist bei meiner Variante das Datum nicht für alle Funktionen geeignet. Z.B. gibt eine WENN-DANN-Abfrage auf dieses Feld falsche Ergebnisse.

objekt1 = InputBox("Eingabe", "Kollege...")
Sheets("Tabelle1").Select
[b2] = objekt1