Registriert seit: 26.02.2020
Version(en): Office 365
27.02.2020, 15:02
(Dieser Beitrag wurde zuletzt bearbeitet: 27.02.2020, 15:02 von 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
Registriert seit: 11.04.2014
Version(en): Office 2003 - Office 2007 - Office 365
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
Wissen ist Macht - es ist aber nicht schlimm nicht alles zu wissen.
Man muss nicht alles wissen - man muss nur wissen wo es steht, oder wo man Hilfe bekommt.
Registriert seit: 10.04.2014
Version(en): 97-2019 (32) + 365 (64)
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
'***********************************************
. \\\|/// Hoffe, geholfen zu haben.
( ô ô ) Grüße, André aus G in T
ooO-(_)-Ooo (Excel 97-2019+365)
Registriert seit: 26.02.2020
Version(en): Office 365
Nochmals Vielen Dank - funktioniert top!
LG Jana