Teil 4: VBA: Geburts-/Festtagskalender

1. VBA: Geburts-/Festtagskalender
2. Teil 2: VBA: Geburts-/Festtagskalender
3. Teil 3: VBA: Geburts-/Festtagskalender
4. Teil 4: VBA: Geburts-/Festtagskalender
5. Teil 5: VBA: Geburts-/Festtagskalender
6. Teil 6: VBA: Geburts-/Festtagskalender
7. Teil 7: VBA: Geburts-/Festtagskalender
8. Teil 8: VBA: Geburts-/Festtagskalender
9. Teil 9: VBA: Geburts-/Festtagskalender
10. Teil 10: VBA: Geburts-/Festtagskalender

Beim Anklicken der Dialogschaltfläche Neu startet Word die Ereignisprozedur cmdNeu_Click. Diese fragt den Namen sowie den Termin des neuen Jahrestags mit Hilfe zweier InputBox-Dialoge ab. Sofern der Anwender die Dialoge nicht abbricht oder ein ungültiges Datum eingibt, trägt die Prozedur den Namen und den Termin des Jahrestags in die linke und rechte Spalte des Listenfelds ein. Bei cmdEdit_Click verhält es sich ähnlich. Die Prozedur, die für das Anklicken der Bearbeiten- Schaltfläche zuständig ist, bringt ebenfalls zwei InputBox-Dialoge auf den Bildschirm, mit denen der Anwender den Namen sowie den Termin des aktuell markierten Jahrestags bearbeiten kann. Die geänderten Informationen trägt die Prozedur dann wieder in das Listenfeld ein. Ein Klick auf die Löschen-Schaltfläche aktiviert die Ereignisprozedur cmdLöschen_Click, die den aktuell markierten Jahrestag ohne Nachfrage aus dem Listenfeld entfernt.

© Archiv

Ein Klick auf die OK-Schaltfläche schließt die Userform. Zuvor allerdings liest die zuständige cmdOK_Click-Prozedur sämtliche Jahrestagsdaten aus dem Listefeld und speichert diese in neu angelegten Dokumentvariablen, die die Save-Anweisung zusammen mit der Dokumentvorlage speichert. Der abschließende Aufruf des KalenderErstellen-Makros sorgt dafür, dass gegebenenfalls neu eingegebene Jahrestage im aktuell angezeigten Kalender erscheinen.