Date-Picker (Kalendersteuerelement)

[Egon12]

Hallo,

für alle User, die einen Date Picker suchen, welcher auf 32/64 Bit Installationen sowohl mit Rechtsklick der Zelle oder wie es auch immer ausgelöst werden soll als auch in einem Userform mit Klick auf ein Image (im Beispiel) oder eines der Events des gewünschten Controls das ausgewählte Datum zurückgibt, stelle ich diesen hier zur Verfügung.

Anleitung für Interessenten mit wenig VBA Erfahrung für den Einbau ins eigene Projekt

Folgende Module nebst Quelltext müssen ins Projekt immer übernommen werden:
Klassenmodul: cls_DatePickerLabel
Allgemeines Modul: Mdl_Variablen
Userform: DatePicker komplett
 
Für Datumseingabe Textboxen Userform:
Userform: Frm_Eingabe der Quelltext nach Bedarf (Textboxen zur Datumseingabe nebst Image via Klick zum Start des Datepickers)

Und/oder für Datumseingabe Zellen im Tabellenblatt:
Diesen Code ins Modul des Tabellenblattes:
 
Es gibt ein kleines Menü für Einstellungen, welche seine Einstellungswerte in die CustomDocumentProperties der Datei schreibt.
Falls mal jemand sich daraus ein Add-in basteln will und/oder die zuletzt gewählte Einstellung auf dem Rechner abgelegt werden sollen, muss das entsprechend geändert werden.

ohne Kalenderwochenausgabe:

  Simple Datepicker.xlsm (Größe: 111,3 KB / Downloads: 7)

mit Kalenderwochenausgabe:

  Simple Datepicker mit KW.xlsm (Größe: 117,11 KB / Downloads: 10)

 
Gruß Uwe

[Glausius]

Hallo Uwe,

sehr schönes und brauchbares Tool, hat nur einen "klitzekleinen" Fehler: Beim (versehendlichen) Markieren von 2 Datumszellen läuft es auf einen Fehler hinaus!
Hier sollte vor der Prüfung des Target-Bereiches erst noch auf eine Zelle geprüft werden! Ich habe deshalb noch diese Zeile in den VBA-Code eingefügt:
If Target.Count > 1 Then Exit Sub
und jetzt läuft es zu meiner vollsten Zufriedenheit!
Danke für diese Ergänzung!