Excel 7.0: Jahresübersicht auf Knopfdruck
(Makrolisting untenstehend)

Ab und zu benötigt man Jahresübersichten vergangener oder künftiger Jahre, die man im Idealfall per Knopfdruck ausdrucken kann. Diese Aufgabe erledigt das unten abgedruckte Makro "KalenderEinfügen". Sie schreiben in eine beliebige Zelle Ihrer Tabelle das Jahr, von dem Sie den Ausdruck benötigen also zum Beispiel 1980 und aktivieren diese Zelle mit einem Mausklick. Wenn Sie dann das Makro starten, erzeugt es einen kompletten Kalender dieses bestimmten Jahres.
Das Makro akzeptiert alle Jahreszahlen zwischen 1900 und 2078. Es schreibt in die Zellen unterhalb und rechts von der Jahreszahl jedes Datum des gewünschten Jahres und formatiert die Zellen im Datumsformat »TTT«. Somit erscheint in den Zellen der auf zwei Buchstaben abgekürzte Wochentag. Zusätzlich markiert es die Wochenenden farbig und erzeugt einige weitere Formatierungen, damit Sie einen übersichtlichen Kalender erhalten.

Um den Dauerkalender einzurichten, legen Sie am besten eine eigene Arbeitsmappe an. Wählen Sie in dieser Arbeitsmappe »Einfügen | Makro | Visual Basic Modul« und tippen Sie dann das unten abgedruckte Listing ab. Wechseln Sie danach zur »Tabelle1« und geben Sie dort die ge- wünschte Jahreszahl ein. Starten Sie das Makro, indem Sie es im Menü »Extras | Makro« markieren und »Ausführen«. Noch einfacher können Sie das Makro über eine Schaltfläche oder einen Shortcut aktivieren.
Um dem Makro einen Button zuzuweisen, klicken Sie die Symbolleiste mit der rechten Maustaste an und wählen »Anpassen«. Unter »Kategorie« scrollen Sie ganz nach unten, bis Sie »Benutzerdefiniert« markieren können. Ziehen Sie eine der angebotenen Schaltflächen mit der Maus in eine der vorhandenen Symbolleisten und wählen Sie in der folgenden Dialogbox »Zuweisen« Ihr neues Makro aus. Nach dem »Schließen« der Dialogbox »Anpassen« können Sie die neue Schaltfläche ausprobieren.

Möchten Sie dem Makro eine Tastenkombination zuweisen, wählen Sie »Extras | Makros« und markieren das Makro. Nach einem Klick auf »Optionen« können Sie im Bereich »Zuweisen« die Option »Shortcut« aktivieren und nach einem Klick in das Eingabefeld hinter »Strg+« die Tasten eingeben, die Sie als Shortcut verwenden wollen. Möchten Sie also zum Beispiel die Tastenkombination [Strg] [Shift] [K] zum Starten des Makros verwenden, halten Sie die [Shift]-Taste gedrückt, während Sie in das Eingabefeld ein [K] schreiben. Nachdem Sie mit »OK« bestätigt haben, können Sie das Makro mit der entsprechenden Tastenkombination starten.
Bevor Sie die Jahresübersicht ausdrucken, sollten Sie außerdem in dem Untermenü »Datei | Seite einrichten« im Register »Papierformat« die Option »Querformat« einstellen und eventuell die Seitenränder verkleinern, damit der Kalender auf eine Seite paßt.

Klaus Wessiepe