Dieses Forum nutzt Cookies
Dieses Forum verwendet Cookies, um deine Login-Informationen zu speichern, wenn du registriert bist, und deinen letzten Besuch, wenn du es nicht bist. Cookies sind kleine Textdokumente, die auf deinem Computer gespeichert werden. Die von diesem Forum gesetzten Cookies werden nur auf dieser Website verwendet und stellen kein Sicherheitsrisiko dar. Cookies aus diesem Forum speichern auch die spezifischen Themen, die du gelesen hast und wann du zum letzten Mal gelesen hast. Bitte bestätige, ob du diese Cookies akzeptierst oder ablehnst.

Ein Cookie wird in deinem Browser unabhängig von der Wahl gespeichert, um zu verhindern, dass dir diese Frage erneut gestellt wird. Du kannst deine Cookie-Einstellungen jederzeit über den Link in der Fußzeile ändern.

(Alternativer) Kalender in UserForm - Office 365
#11
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
Antworten Top
#12
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.
Antworten Top
#13
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)
Antworten Top
#14
Nochmals Vielen Dank - funktioniert top!

LG Jana
Antworten Top


Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste