Moin allerseits, gutes Neues, usw.. Heute brauch ich mal Hilfe. Ich habe mir vor einiger Zeit den angefügten "Kalender" hier herauskopiert, um damit das Active-X in unserem Urlaubsplaner zu ersetzen. Habe ich auch getan und wo nötig angepasst. Als ich dann gestern den neuen Urlaubsplaner vorgestellt habe, hat gleich ein Kollege eine Fehlfunktion festgestellt. Und zwar - Vor und hinter den Tagen des aktuellen Monats sind (etwas heller) die letzten Tage des Vormonats und die ersten Tage des Folgemonats in der UF angezeigt. Wenn ich aber auf diese Tage clicke, liefert er mir ein ganz anderes Datum. Da der Code nicht von mir selber stammt und ich ihn offen gestanden nicht ganz durchschaue, wollte ich fragen ob hier im Forum sich jemand in der Lage fühlt den Code zu korrigieren. Vielen Dank im Voraus.
ändere den Code im Klassenmodul (clsLabel) so ab: :21:
Code:
Private Sub Lbl_Click() If Lbl.ForeColor <> -2147483632 Then Call SelectDate(Lbl.Tag) UserForm1.ActiveControl.Text = Lbl.Tag End If ' Unload ufCalendar End Sub
Dann passiert nichts, wenn auf ein "graues" Datum geklickt wird.
Folgende(r) 1 Nutzer sagt Danke an Gast für diesen Beitrag:1 Nutzer sagt Danke an Gast für diesen Beitrag 28 • Igelbauer
Hallo, mir wurde kein Calendar angezeigt. Muss ich Einstellungen ändern?
Lg 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.
Hallo , das muss man natürlich einem doofen erst mal mitteilen :100:
Jetzt wird es mir auch klar. Dake Dir 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.
was schwebt Dir den vor an anderen Ideen? Normalerweise ist es so, dass das Dimmen oder Ausgrauen für einen nicht zur Verfügung stehenden Inhalt steht. Ich hab da auch ein Muster, wo es mit dem Folgemonat funktioniert. http://www.xltips.de/ftxt/lnk-dow/DatePicker.htm
. \\\|/// Hoffe, geholfen zu haben. ( ô ô ) Grüße, André aus G in T ooO-(_)-Ooo (Excel 97-2019+365)
Folgende(r) 1 Nutzer sagt Danke an schauan für diesen Beitrag:1 Nutzer sagt Danke an schauan für diesen Beitrag 28 • Igelbauer
Hallo Andreas, Ich hatte mir diesen Calendar hier im Forum mal rausgezogen, weil ich den ActiveX in unserem Urlaubsplaner durch etwas ersetzen wollte, was auf allen Rechnern funktioniert, ohne das erst etwas installiert werden muss. Nur funktioniert dieser nicht ganz richtig. Ist halt blöd, wenn jemand vom 31. bis zum 1. Urlaub eintragen will. Ich dachte, wenn sich hier jemand gut genug auskennt, kann er vielleicht dieses Fehlverhalten korrigieren. Ist aber nicht lebenswichtig. Jetzt sind die Tage, die den falschen Wert zurückgeben erst mal ausser Funktion gesetzt. Trotzdem Danke Igel
So schnell geb ich nicht auf. Hab gestern Abend etwas Zeit zum tüfteln gehabt. @ Case - Danke nochmal ,dein Tipp hat zumindest bis heute Fehleinträge verhindert. @ Fegerin - Du hattest das Ding mal hier reingestellt. Jetzt funktioniert es richtig. Im Anhang jetzt eine funktionierende (leicht modifizierte) Variante, mit der man Datepicker o.ä. ersetzen kann. Gruss Igel
![[-]](https://www.clever-excel-forum.de/images/collapse.png)
,