06.10.2022, 11:24
HI,
ich habe folgendes Problem. In einer Exceltabelle habe ich zwei Datumsangaben (vom bis) und will diese über eine Userform entsprechend ändern.
Die Eingabe über die Userform funktioniert auch ohne Probleme, doch leider ändert Excel nach der Eingabe immer das Format, so dass es nicht mehr als Datum erkannt wird. Daraus resultiert dann, dass ich diese Datumsangaben in meinem Serienbrief nicht richtig nutzen kann, da dort das Datum, trotz Formatierung über die Feldfunktion, nicht richtig angezeigt wird. Das Datum 01. August 2022 wird mir im Brief dann als 08.01.2022 angezeigt.
Gebe ich das Datum "händisch" in die Zelle ein, wird es richtig formatiert und auch im Serienbrief funktioniert es dann Problemlos.
Die Lösung wäre evt., dass ich nach der Übernahme aus der Userform ggf. eine Formatierung vornehme
Kann ich über VBA eine Zelle als Datum formatieren? Mit folgendem Test hats leider nicht geklappt:
Privat Sub TextBox4_Change ()
Worksheets("BerechnungZuwendung").cells(14,4).value=TextBox14.Value
Worksheets("BerechnungZuwendung").cells(14,4).NumberFormat="dd.mm.yyyy."
End Sub
Gruß
Royalty
ich habe folgendes Problem. In einer Exceltabelle habe ich zwei Datumsangaben (vom bis) und will diese über eine Userform entsprechend ändern.
Die Eingabe über die Userform funktioniert auch ohne Probleme, doch leider ändert Excel nach der Eingabe immer das Format, so dass es nicht mehr als Datum erkannt wird. Daraus resultiert dann, dass ich diese Datumsangaben in meinem Serienbrief nicht richtig nutzen kann, da dort das Datum, trotz Formatierung über die Feldfunktion, nicht richtig angezeigt wird. Das Datum 01. August 2022 wird mir im Brief dann als 08.01.2022 angezeigt.
Gebe ich das Datum "händisch" in die Zelle ein, wird es richtig formatiert und auch im Serienbrief funktioniert es dann Problemlos.
Die Lösung wäre evt., dass ich nach der Übernahme aus der Userform ggf. eine Formatierung vornehme
Kann ich über VBA eine Zelle als Datum formatieren? Mit folgendem Test hats leider nicht geklappt:
Privat Sub TextBox4_Change ()
Worksheets("BerechnungZuwendung").cells(14,4).value=TextBox14.Value
Worksheets("BerechnungZuwendung").cells(14,4).NumberFormat="dd.mm.yyyy."
End Sub
Gruß
Royalty