Kalenderwoche auf Bezeichnungsfeld
Fatih
bitte um eure Unterstützung.
Ich habe auf einer Userform ein Textfeld und gleich daneben das Kalender (Steuerelement).
Nach dem Klick auf das Steuerelement wird auf dem Textfeld das gewählte Datum angezeigt.
Neben dem Textfeld hab ich jetzt auch ein Bezeichnungsfeld hinzugefügt. Ich möchte erreichen das nach dem gewählten Datum automatisch die Kalenderwoche auf dem Label erzeugt wird.
Hier ist der Code für das Textfeld und für das Bezeichnungsfeld
Private Sub txtdatum_AfterUpdate()
Dim sDate As String
sDate = Trim$(txtdatum.Value)
If Len(sDate) > 0 Then
If Len(sDate) 10 Then
MsgBox "Ungültige Datumeingabe. Bitte das Format TT.MM.JJJJ verwenden!"
txtdatum.Value = ""
Else
If Not IsDate(sDate) Then
MsgBox "Ungültige Datumeingabe. Bitte das Format TT.MM.JJJJ verwenden!"
txtdatum.Value = ""
End If
End If
End If
lblKW.Caption = Kalenderwoche_Din(txtdatum)
Me.txtdatum.BackColor = &H80000005
End Sub
lg
fatih