Datum in Userform einbauen

[dertommy]

Hallo!

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 Sub

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

[RPP63]

Moin!
Label1.Value = "Was soll heute am " & Date & " eingetragen werden?"

Gruß Ralf

[dertommy]

Hallo!

Danke für die rasche Rückmeldung. Leider kommt aber immer folgende Fehlermeldung:

Fehler beim Kompilieren:

Methode oder Datenobjekt nicht gefunden


Anbei mein aktueller Code:

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 Sub

Private Sub UserForm_Initialize()

Label1.Value = "Was soll heute am " & Date & " eingetragen werden?"

End Sub

[RPP63]

Yepp, gibt kein .Value
Nimm .Caption

[dertommy]

Danke sehr, jetzt hat es funktioniert.