Microsoft Excel 2010-Programmierung - Das Handbuch

Einen Monatskalender erstellen

Die Schwierigkeit, einen Monatskalender zu erstellen, besteht darin, den ersten Tag jeden Monats in die richtige Zelle einzutragen. Die zweite Herausforderung ergibt sich daraus, die folgenden Tage korrekt anzuschließen und jede Woche mit einer neuen Zeile zu beginnen.

Abbildung 9.11 Ein Monatskalender

Die Erläuterungen zu den einzelnen Codezeilen sind als Kommentare in der folgenden Prozedur hinterlegt:

Sub Monatskalender() Dim intYear As Integer ' Jahr Dim bytWS As Byte ' Tabellenblätter einfügen Dim bytTitle As Byte ' Titelzeile einfügen Dim bytMonth As Byte ' Monat (aus Tabellenblattname) Dim bytFirst As Byte ' Variable ...