VBA Excel 2013 Format Funktion ändert Datum

Question

Die folgende Codezeile ändert nicht nur das Format des Datums, es ändert auch den Wert des Datums. Warum passiert das und wie kann ich es vermeiden?

Code:

rng.Cells(intStartRow, rng.Columns.Count + 1) = _ 
Format(rng.Cells(intStartRow, rng.Columns.Count + 1).Value, "mmm-yy") 

Wert von rng.Cells(intStartRow, rng.Columns.Count + 1).Value vor der Ausführung des Codes:

Wert von rng.Cells(intStartRow, rng.Columns.Count + 1).Value nach der Ausführung des Codes:

Answer 1

Wenn Sie auf ein tatsächliches Datum konvertieren mögen und das angezeigte Format ändern, verwenden:

With rng.Cells(intStartRow, rng.Columns.Count + 1) 
    .Value = CDate(.Value) 
    .NumberFormat = "mmm-yy" 
End With 

Answer 2

Der Grund, warum es passiert ist, dass die aktuellen Informationen intern als Dezimalzahl gespeichert und mit dem Datumsformat angewandt angezeigt die Zelle. In Ihrem Code ändern Sie die Datumsinformation in eine Zeichenkette, da das Ergebnis der Funktion Format() immer eine Zeichenkette ist. Eine Lösung, um das Problem zu lösen, ist Supplyy von Rory