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
Hallo,
wenn Du den Code in Userform 1 so abänderst, dann brauchst du keinen Doppelklick mehr. ein einfacher klick reicht:
Zitat: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
Hallo Jana,
bei meinem Beispiel ist dieser codeteil für den Zelleintrag zuständig und könnte dann entfallen:
Zitat:'***********************************************
'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
'***********************************************
Nochmals Vielen Dank - funktioniert top!
LG Jana