(Alternativer) Kalender in UserForm - Office 365

[Jana.97]

Spitze! - genau so meinte ich es.
Ich denke die Formatausgabe  kann ich aus dem anderen Vorschlag nehmen.

Code:

private sub Calendar1_AfterUpdate ()
  With Calendar1
     txtDatumAuswahl = Format(.Value, "DD.MM.YYYY - DDDD"
   End With
End Sub

Vielen Dank allen die geholfen haben.

Edit:
Von Anton aus dem "Nachbarforum" habe ich auch einen Vorschlag erhalten.

LG Jana

[marose67]

Hallo,

wenn Du den Code in Userform 1 so abänderst, dann brauchst du keinen Doppelklick mehr. ein einfacher klick reicht:

Private Sub TextBox_Beginn1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    UserForm2.Show
    TextBox_Beginn1.Text = TextBox_Beginn1.Tag
    TextBox_Ende1.SetFocus
End Sub

Private Sub TextBox_Beginn2_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    UserForm2.Show
    TextBox_Beginn2.Text = TextBox_Beginn2.Tag
    TextBox_Ende2.SetFocus
End Sub
Private Sub TextBox_Ende1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    UserForm2.Show
    TextBox_Ende1.Text = TextBox_Ende1.Tag
    TextBox_Beginn2.SetFocus
End Sub
Private Sub TextBox_Ende2_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    UserForm2.Show
    TextBox_Ende2.Text = TextBox_Ende2.Tag
    TextBox_Beginn1.SetFocus
End Sub

Gruß
Marcus

[schauan]

Hallo Jana,

bei meinem Beispiel ist dieser codeteil für den Zelleintrag zuständig und könnte dann entfallen:

'***********************************************
'hier k?nnte Ihre Aktion stehen, zum Beispiel
'Eintrag des Datums in aktive Zelle
'Variablendeklaration - Integer
Dim iOvWri As Integer 'Abfragewert fuer Zelle Ueberschreiben
'Variable auf Ausgangswert setzen
iOvWri = vbYes
'Wenn Zielzelle nicht belegt ist, dann
If ActiveCell <> "" Then
'Abfragewert fuer Zelle Ueberschreiben entsprechend Antwort Ja/Nein setzen
iOvWri = MsgBox("Zelle " & ActiveCell.Address & _
" auf Batt " & ActiveCell.Parent.Name & " belegt!" & _
vbLf & "Ueberschreiben?", vbYesNo)
'Ende Wenn Zielzelle nicht belegt ist, dann
End If
'Wenn Abfragewert = ja, dann Zelle ueberschreiben
If iOvWri = vbYes Then ActiveCell = TButton.Tag
'Ende hier k?nnte Ihre Aktion stehen, zum Beispiel
'***********************************************

[Jana.97]

Nochmals Vielen Dank - funktioniert top!

LG Jana