Office: Kalender UF nachgebaut (xlph)

Hallo,

ich habe jetzt auch einen Kalender nachgebaut, da Calendar-Steuerelemente
evtl. auf anderen PCs nicht funktionieren.

Viel Spaß damit.

Sollten Fehler auftreten, einfach melden.

Monatliste anzeigen:
Links-Klick auf den Monat in der Überschrift. Durch Auswahl eines Monats aus der Liste oder durch wiederholten Links-Klick auf Header wird die Liste wieder ausgeblendet.

Jahrliste anzeigen:
Links-Klick auf das Jahr in der Überschrift. Durch Auswahl eines Jahres aus der Liste oder durch wiederholten Links-Klick auf Header wird die Liste wieder ausgeblendet.

Spinbutton für Jahrwechsel anzeigen:
Rechts-Klick auf das Jahr in der Überschrift. Durch wiederholten Rechts-Klick auf Header wird die Liste wieder ausgeblendet.

Klick auf [Heute] wechselt zum heutigen Datum.

Klick auf [KreisKreuz] säubert die Datum-Wahl.

Klick auf [Pfeil nach Rechts] schließt das Kalender-Formular.

:)

 

Guten Morgen,
vielen Dank dafür kann ich echt gut gebrauchen *wink.gif*

Jedoch wenn ich den Kalender aufrufen will kommt immer folgende Fehlermeldung:
"Fehler beim Kompilieren: Projekt oder Bibliothek nicht gefunden"

und markiert dabei bei "Private Sub Userform_Initialize"
Code:

Wie kann ich diesen Fehler beheben?

Gruß Carsten

 

Hallo Carsten,

da ist ein üngültiger Verweis drin. Es reicht, im VBA-Editor unter Extras, Verweise den Verweis auf das nicht vorhandene CommonControl zu deaktivieren.

 

Hi Haklesoft,

ich bin mir nicht einmal sicher, ob er das Label anmeckert, sondern vermute eher, dass er die Funktion Format meint. Evtl. auch Date. Kann sogar sein, dass auch Left, Mid.... usw. im weiteren Verlauf angemosert werden. Passiert immer dann, wenn gleichnamige Funktionen in unterschiedlichen Verweisen auftauchen und nicht exact zugeordnet werden können. In diesem Fall hilft dann ein VBA. (Punkt nicht vergessen) vor die angemeckerte Stelle zu setzen.
BeipieL:
Code:

...und das, wie gesagt, bei allen derartigen Vorkommen...

 

Hi ihr beiden,
danke für die Rückmeldungen.

Das mit VBA. hat geholfen. funktioniert nun sehr gut

 

Hallo Ralf,

wenn Office-VBA einen der VB-Standardbefehle wie Left, Mid, Date u. dergl. anmeckert gilt meine erste Aktion immer dem Kontrollieren und Bereinigen der Verweise, wie es auch hier geholfen hat, ohne dass ich in den eigentlichen Code eingreifen musste.

 

Hallo,

...ja das leidige Thema mit den Verweisen.

Da bin ich bei haklesoft, die nicht benötigte Verweise eliminieren.

 

Hallo,

es gibt 2 Zusätze + Korrektur:

1. Jetzt kann über Doppelklick direkt ein Datum ausgewählt werden und das Kalender-Formular wird geschlossen.

2. Dt. Feiertage (lt. Wikipedia: "Feiertage in Deutschland") werden rot markiert. Maus drüber halten und es wird die Feiertags-Bezeichnung angezeigt (=.ControlTipText).

Sollen Feiertage nicht angezeigt werden dann folgende Codezeile
entfernen oder die Eigenschaft 'ShowHolidays' auf FALSE setzen:

Code:

Korrektur: Fehlerhafte Anzeige der Monate in der Monats-Liste beim Wechseln der Monate.

 

Hallo xlph,

tolle Sache!!!

Aber in Wikipedia steht auch:

Von 1954 bis 1990 wurde der „Tag der deutschen Einheit“ in der Bundesrepublik Deutschland am 17. Juni begangen, zum Gedenken an den Aufstand des 17. Juni 1953. Der Tag gilt unverändert als Nationaler Gedenktag

Das somit der 17.6. und der 3.10. als zeitlich begrenzte Feiertage angezeigt werden, wird wohl für dich auch kein Problem darstellen ;-)

 

Ich habe jetzt mal alle gesetzlichen Feiertage genommen, die in der Kreuztabelle
mind. einen "Punkt" aufweisen (Wikipedia: 'Feiertage in Deutschland'). Wie du siehst kann es abhängig von Land, Gemeinde oder sogar Stadt sein.

Das überlasse ich euch, welche ihr da noch alle hineinnehmen wollt.
Den Code müsst ihr dementsprechend ergänzen.

Code:

Bezeichnung des Feiertags.
Ermittelte Datum des Feiertags.

...die anderen Parameter 1:1 übernehmen.

 

Korrektur/Überarbeitet (...mit 'Windows API Viewer for MS Excel x64')

64 Bit - API Deklarationen

 

Korrektur

DIN-KW wurde nicht richtig ermittelt. Fehler behoben.

Dank geht an haklesoft, der mich darauf aufmerksam gemacht hat.

 

Hi xlph!
Angenehm minimalistisch im Design!
Bug:
Bei Kalenderausrichtung an Zelle nimmt er zwar nach Klick auf "heute" und Doppelklick auf das heutige Datum den aktuellen Tag, der Monat und das Jahr werden aber vom evtl. bereits vorhandenem Zelleintrag übernommen.

Beispiel:
In B4 ist der 11.11.2011,
UF-Aufruf, heute, Doppelklick auf den 19.06.2016 ergibt den 19.11.2011

Gruß Ralf

 

\@Ralf

Siehe Titel ... Calendar-Steuerelement nachgebaut (+/-).

Danke, für die Fehlerermittlung.

Fehler behoben.

 

Gelöscht!
Ich Dussel hätte mal die Threaderöffnung genauer lesen sollen.
Sorry

Gruß Ralf