|
|
|
Thema:
|
Excel 97/2000 |
|
|
Excel bietet bekanntlich die
Möglichkeit, Tabellen automatisch zu formatieren. Sie wählen einfach
das Menü Format-Autoformat an,
markieren das gewünschte Layout und schon verwandeln sich
unformatierte Zahlen in eine präsentationsreife Tabelle. Da Sie sich
in den meisten Fällen einmal für eine bestimmte Gestaltung
entscheiden, die dann immer wieder zum Einsatz kommt, können Sie den
Vorgang durch ein kleines Makro erheblich beschleunigen:
- Wechseln Sie mit Alt+F11 in die
VBA - Entwicklungsumgebung
und fügen Sie ein neues Modul ein.
- Erstellen Sie die Prozedur "AutoFormat1":
Sub AutoFormat1()
Selection.AutoFormat Format:=xlRangeAutoFormatList1
End Sub
-
In dem Listing ist "xlRangeAutoFormatList1" der Name
des gewünschten AutoFormats (in diesem Fall "Liste1").
Wenn Sie ein anderes Layout verwenden wollen, setzen Sie
beispielsweise eine der folgenden Konstanten ein (weitere
Konstanten finden Sie in der VBA-Online-Hilfe zur
AutoFormat-Methode): xlRangeAutoFormatClassic1,
xlRangeAutoFormatColor1, xlRangeAutoFormatList1,
xlRangeAutoFormat3DEffects1, xlRangeAutoFormatSimple,
xlRangeAutoFormatNone
-
Nun müssen Sie noch dafür sorgen, dass das AutoFormat-Symbol
umdefiniert wird und anstelle der Standard-Funktion die neu
erstellte Prozedur aufruft. Verlassen Sie dazu den VBA-Editor,
klicken Sie eine der Symbolleisten mit der rechten Maustaste an
und rufen Sie das Kontextmenü Anpassen
auf.
-
Wechseln Sie auf die Registerkarte "Befehle" und
markieren Sie den Eintrag "Makros" im Listenfeld Kategorien.
-
Ziehen Sie das Symbol "Schaltfläche anpassen" in die
gewünschte Symbolleiste.
-
Klicken Sie das neue Symbol mit der rechten Maustaste an und
rufen Sie das Kontextmenü Makro uuweisen
auf.
-
Markieren Sie im folgenden Dialogfeld das Makro
"AutoFormat1" und bestätigen Sie mit Ok.
-
Legen Sie schliesslich noch das gewünschte Symbol fest und
verlassen Sie das Dialogfeld mit Schliessen.
Wenn Sie in Zukunft einer Tabelle Ihr Standardlayout zuweisen möchten,
markieren Sie eine beliebige Zelle in dem entsprechenden Bereich und
klicken auf das soeben erstellte Symbol. |
|
