Datumsformatierung aus Text
13.12.2021 16:01:10
Dom
ich habe in der folgenden Datei ein Makro erstellt, bei dem aus einer TextBox eines UserForm das Tagesdatum gelesen wird und in Spalte A eingefügt wird.
Nur leider wird dabei in Spalte A das Datum als Text erkannt, obwohl es als Datum formatiert ist.
Bei Doppelklick oder Klick in die Bearbeitungsleiste wird es dann ins Datumsformat geändert.
Nur will ich natürlich nicht in jede Zelle klicken um ein Datumsformat zu bekommen.
Natürlich geht es auch mit ' Daten | Text in Spalten ' gleichzeitig für mehrere Zelle, aber auch das ist keine Lösung mit der ich arbeiten möchte.
Kann man im Code etwas anpassen damit es automatisch als Datum umformatiert wird?
Hier der Code und die Datei:
Option Explicit
Private Sub CommandButton1_Click()
Dim fRow As Long
Dim lRow As Long
With Sheets("Artikeldaten")
.Range(.Range("I2"), .Range("I2").End(xlDown)).Copy
End With
With Sheets("Produktion")
.Range("D1048576").End(xlUp).Offset(1, 0).PasteSpecial
fRow = .Range("A1048576").End(xlUp).Row + 1
lRow = .Range("D1048576").End(xlUp).Row
.Range("A" & fRow & ":A" & lRow).Value = Me.TB_Datum.Text
.Range("B" & fRow & ":B" & lRow).Value = Me.CB_Schicht.Text
.Range("C" & fRow & ":C" & lRow).Value = Me.CB_Schichtleiter.Text
End With
Unload Me
End Sub
Private Sub UserForm_Initialize()
With Me.CB_Schichtleiter
.AddItem "Name 1"
.AddItem "Name 2"
'.ListIndex = 1
End With
With Me.CB_Schicht
.AddItem "Früh"
.AddItem "Spät"
.AddItem "Nacht"
'.ListIndex = 1
End With
Me.TB_Datum.Text = Date
End Sub
https://www.herber.de/bbs/user/149781.xlsm
Danke & Gruß