Microsoft Excel 2010-Programmierung - Das Handbuch

Einen Jahreskalender erstellen

Nachfolgend finden Sie ein komplexes Beispiel, das zeigt, wie die zuvor behandelten Möglichkeiten in der praktischen Anwendung eingesetzt werden können. Die Prozedur erstellt zu einem beliebigen Jahr einen Kalender.

Abbildung 9.10 Der Jahreskalender

Die Beschreibungen zu den einzelnen Codeblöcken sind direkt im Programm als Kommentarzeilen hinterlegt.

Sub Jahreskalender() Dim ws As Worksheet Dim varYear As Variant Dim bytMonth As Byte Dim bytDay As Byte Dim bytWeekday As Byte Dim strWeekday As String Dim bytWeekNo As Byte Dim bytDummy As Byte ' Das Jahr des Kalenders, der ausgegeben werden soll varYear = Range("B2") ' ...