Datumsformat in VBA funktioniert nicht

Question

Ich möchte eine Eingabe Nachricht Antwort auf eine Zelle anzeigen, die mit CDate formatiert ist (TT/MM/JJJJ). Warum zeigt der Code die Fehlermeldung nicht an, wenn die Eingabe als TT/MM/JJ erfolgte? Das Programm akzeptiert es, aber die Ausgabe wird als JJ/MM/TT angezeigt.

unten ist der Code, den ich erstellt:

Sub inputSettlementDate() 

Dim varInputDate As Variant 
Dim lngERow As Long 


varInputDate = InputBox("Please enter the Settlement Date using this format dd/mm/yyyy.", "Settlement Date") 
If IsDate(varInputDate) Then 
    varInputDate = Format(CDate(varInputDate), "dd/mm/yyyy") 
    Else 
    MsgBox "Please enter a valid date format dd/mm/yyyy" 
End If 

If IsDate(varInputDate) Then 
    lngERow = Range("B" & Rows.Count).End(xlUp).Row + 1 
    Range("B" & lngERow).Value = varInputDate 
End If 
End Sub 

Answer 1

Möglicherweise möchten Sie sicher, dass Spalte B hat ein Format als General machen, oder dass es keine yy/mm/dd Format haben. Ich habe Ihren Code in einer leeren Arbeitsmappe getestet, ohne etwas zu ändern, und es funktionierte einwandfrei.