Datum in Userform einbauen
10.05.2023, 09:38
Hallo!
Ich habe eine Userform und folgenden Code dazu:
Nun habe ich ein Label und möchte zusätzlich, dass das heutige Datum automatisch drinnen steht. Im Label1 steht folgender Text:
Was soll eingetragen werden?
Ich möchte, dass dann folgendes steht:
Was soll heute am 10.05.2023 eingetragen werden.
Das Datum (10.05.2023) soll aber automatisch generiert werden.
Ich hoffe, dass mir jemand helfen kann.
LG
Thomas
Ich habe eine Userform und folgenden Code dazu:
Code:
Private Sub UserForm_Activate()
BüroHOSonstiges.Caption = "Eintragungsgrund definieren"
With Me.ComboBox
.AddItem "Feiertag"
.AddItem "Home Office (Ausnahme)"
.AddItem "Krankenstand"
.AddItem "Pflegeurlaub"
.AddItem "Urlaub"
.ListIndex = -1
End With
End Sub
Private Sub CommandButton1_Click()
ActiveCell.Value = "x"
Unload Me
End Sub
Private Sub CommandButton2_Click()
ActiveCell.Offset(0, 1).Value = "x"
Unload Me
End Sub
Private Sub ComboBox_Change()
Select Case ComboBox.Value
Case "Feiertag"
Feiertag
Case "Home Office (Ausnahme)"
HomeOfficeAusnahme
Case "Krankenstand"
Krankenstand
Case "Pflegeurlaub"
Pflegeurlaub
Case "Urlaub"
Urlaub
End Select
End Sub
Sub Feiertag()
ActiveCell.Offset(0, 2).Value = "Ftg"
Unload Me
End Sub
Sub HomeOfficeAusnahme()
ActiveCell.Offset(0, 2).Value = "HO"
Unload Me
End Sub
Sub Krankenstand()
ActiveCell.Offset(0, 2).Value = "K"
Unload Me
End Sub
Sub Pflegeurlaub()
ActiveCell.Offset(0, 2).Value = "Pfl"
Unload Me
End Sub
Sub Urlaub()
ActiveCell.Offset(0, 2).Value = "U"
Unload Me
End SubNun habe ich ein Label und möchte zusätzlich, dass das heutige Datum automatisch drinnen steht. Im Label1 steht folgender Text:
Was soll eingetragen werden?
Ich möchte, dass dann folgendes steht:
Was soll heute am 10.05.2023 eingetragen werden.
Das Datum (10.05.2023) soll aber automatisch generiert werden.
Ich hoffe, dass mir jemand helfen kann.
LG
Thomas
Excel Version 2016
