Aus einer Userform-Textbox schreibe ich ein Datum in eine Tabelle. Das Datum wird aber in der Tabelle als Datum nicht erkannt. Wenn ich es nachträglich in der Zelle als Datum formatiere, wird es zwar im Menü Format, Zelle als Datum angezeigt, bleibt in der Zelle aber immer noch links stehen (wie Text).
Rufe ich den Inhalt der Zelle ab, erhalte ich die fortlaufende Zahl, nicht in „dd/mm/yy“.
Ich habe es mit etlichen verschiedenen Formaten versucht (NumberFormat, Format, Cdate), aber ich kriege es nicht hin.
So habe ich es versucht
Von der TextBox in die Tabelle:
With Sheets(„Daten“)
.ActiveCell.Offset(0, 46).Value = frmDialog.txtDatum
End With
Von der Tabelle in die Textbox:
With frmDialog
.txtDatum.Value = ActiveCell.Offset(0, 46).Value
End With
Das funzt soweit, ich bekomme den Wert in die Textbox auch wieder als Datum zurück (mit CDate).
Aber aus der Tabelle rufe ich das Datum außerdem für ein Word-Dokument ab und zwar so:
TypeText Text:=ActiveCell.Offset(0, 46).Value + 14
Und hier ist nun irgend etwas faul. Habe ich das Datum direkt in die Zelle eingegeben, ist alles wunderbar und ich bekomme im Word-Dokument das Datum + 14 Tage. Gebe ich das Datum jedoch über die Textbox aus der Userform ein, bekomme ich eine 6stellige Zahl (das müsste dann so um das Jahr 2595 sein.
Es wäre nett, wenn mir jemand helfen könnte. Ich komme allein nicht weiter.
Schon mal sehr viel Danke.
Fritz