Office: (Office Version unbekannt) (Alternativer) Kalender in UserForm

Liebe/r Leser/in

Entschuldigung für meine Anfängerfragen, aber ich habe ein Problem bei der Erstellung eines Formulares.
Im Anhang habe ich ein Beispiel mit einem Kalender in einer Userform.

Ich möchte später ein Formular zusammenstellen in welchen auch einige Male ein Startzeitpunkt bzw. ein Endzeitpunkt vorkommen wird.
Das Formular soll dazu dienen ein Tabellenblatt zu befüllen.

In der Userform soll, wenn ich auf bestimmte Textfelder klicke der Kalender erscheinen / eingeblendet werden, über welchen das Datum gewählt werden soll.
Vor der Auswahl soll das Feld leer sein.
Nach Auswahl soll das ausgewählte Datum in das Textfeld geschrieben werden, Format mindestens tt.mm.jjjj (25.02.2020), besser wäre noch tt.mm.jjjj - Wochentag (25.02.2020 - Dienstag, oder so ähnlich).

Die Übernahme in die Tabelle soll am Ende mit den anderen ausgefüllten Feldern per Klick auf eine Schaltfläche übernommen werden.

Wie in der anhängenden Datei zu sehen ist habe ich schon angefangen, komme aber nicht weiter.
Dieser Kalender funktioniert auf den zum Einsatz kommenden Rechnern, der in Excel "integrierte" Data Time Picker funktioniert nicht auf allen Geräten.
Dort wo er nicht funktioniert ist aber keine Nachinstallation von *.ocx Dateien möglich.

Ich würde mich sehr über Hilfe und Rat freuen.

LG Jana


Nachtrag: Ich habe vergessen zu erwähnen, es handelt sich um Excel aus Office 365

 

Hallo Jana,

in der beiliegenden Excel-Datei habe ich deine Makro-Vorgaben ergänzt.

1. Im Arbeitsblatt "Tabelle1" habe ich den Button "Formular anzeigen" eingefügt. Ein Klick darauf ruft das Makro "Userform_Anzeigen()" im allgem. Codemodul "Modul1" auf.
   '
2. Dort wird die Userform "Userform1" mittels "Userform1.Show" aufgerufen und angezeigt.
   '
3. Im Codemodul der Userform "Userform1" habe ich etliche Ergänzungen vorgenommen, insbesondere was die Wertrückgabe aus der cKalendar-Objektinstanz "Calendar1" betrifft und die Befüllung der 4 TextBoxen.
   • Wählt man im Kalenderobjekt einen bestimmten Tag (Datum) aus und klickt man anschließend in eine/mehrere TextBox(en), wird dort das Datum samt Wochentagsangabe eingefügt.
     '
   • Will man den Datumstext (mit Wochentag) für irgendwelche Weiterverwendung wieder zu einem echten Datum konvertieren, kann man dazu die ebenfalls enthaltene Funktion "GetDatum(DatumTag$)" einsetzen.
     '
   • Ferner habe ich im Formular 2 Buttons eingefügt:
     Button "Abbrechen" schließt das Formular (er macht es bloß unsichtbar).
     Button "Ok" fügt im Arbeitsblatt "Tabelle1" eine neue Datumszeile in den Spalten A-D an mit den Werten (als Datum) aus den 4 TextBoxen (ohne der Wochentagsangabe) und schließt das Formular ebenfalls (d.h. er macht es auch bloß unsichtbar).

 

Hola,

zur Info...

https://www.clever-excel-forum.de/Thread-Alternativer-Kalender-in-UserForm-Office-365

Gruß,
steve1da

 

@ Exl121150
Vielen Dank für die Mühe!

Wäre es möglich, dass der Kalender erst per PopUp zu sehen ist, wenn eine bzw. bestimmte Textbox/en angeklickt werden (z.B. Textbox_Datum1, Textbox_Datum2...)?

LG Jana

 

Hallo,

bei Klick in die TextBoxen "Beginn 1" bzw. "Ende 1" wird das Kalender-Objekt sichtbar und es wird das dort gerade ausgewählte Datum eingeblendet - falls dies das falsche Datum ist, muss ein anderes Datum im Kalender-Objekt ausgewählt werden und durch nochmaligen Klick in die TextBox "Beginn 1" bzw. "Ende 1" dort eingefügt werden.

Bei Klick in die TextBoxen "Beginn 2" bzw. "Ende 2" wird bzw. bleibt das Kalender-Objekt unsichtbar und es kann in diese TextBoxen beliebiger Text eingegeben werden.

 

Vielen Dank Anton für deine Hilfe.

Aus dem "Nachbarforum" habe ich ebenfalls einen Vorschlag erhalten.
Datei anbei.

Edit:
Thema erledigt - Lösung vorhanden
D A N K E