Excel Makro Text aus InputBox

[boott]

Guten Tag

Ich habe folgendes Makro (Ausschnitt):

Dim Eingabe As String
    Eingabe = InputBox("Bitte geben Sie das Startdatum ein" & vbCrLf & "Bei ungültiger Eingabe können Sie das Datum nachträglich in der Ersten Zeile der Tabelle einfügen")
 
    Range("B7:K7").Copy
    Range("b8:b400").PasteSpecial Paste:=xlPasteFormulas
 
    If Not IsEmpty(Eingabe) Then
 
        Range("b8") = Eingabe
 
    End If

Nun möchte ich, dass in Range B8 das drin steht, wie es in der InputBox eingegeben wurde. D.h., nicht genau wie es eingegeben wurde. Der Haken ist: Diese Eingabe sollte so sein, wie wenn sie direkt in die Zelle eingefügt worden wäre. Nämlich formatiert in folgendem Format oder zumindest dass es so angezeigt wird:

[$-807]TTT   T. MMM JJ;@

Wie lässt sich das bewerkstelligen?

Besten Dank
boott

 

[Xpert]

Ich habe es nicht getestet, aber vielleicht geht folgendes:

Dim Eingabe As String
    Eingabe = InputBox("Bitte geben Sie das Startdatum ein" & vbCrLf & "Bei ungültiger Eingabe können Sie das Datum nachträglich in der Ersten Zeile der Tabelle einfügen")
 
    If Not IsEmpty(Eingabe) Then
        Range("B8").Value = CDate(Eingabe)
        Range("B8").NumberFormat = "[$-807]ddd   d/ mmm yy;@"
    End If
End Sub

 

[boott]

Ich habe es nicht getestet, aber vielleicht geht folgendes:

Yep, das funktionniert. Vielen Dank
boott