Excel 7.0
Alle Blätter einer Arbeitsmappe formatieren
Antwort
Tip: Will man einer kompletten
Arbeitsmappe durchgehend
über alle Tabellenblätter
dieselbe Formatierung zuweisen,
markiert man am besten
vor der Veränderung alle Blätter
der Arbeitsmappe. Dafür
müssen Sie das erste Tabellenblatt
komplett durch einen
Klick auf die graue Schaltfläche
zwischen der Spalten-und
Zeilenbeschriftung markieren
und die [Shift]-Taste
gedrückt halten, während Sie
auf das letzte Tabellenblatt
klicken. Um einzelne Blätter
aus dieser Gruppe zu entfernen,
betätigen Sie [Strg],
während Sie auf die Registerzunge
dieser Tabelle klicken.
Es ist jedoch praktischer,
Formatierungen, welche die
gesamte Arbeitsmappe betreffen,
in einem Makro zusammenzufassen.
Damit das Makro
Arbeitsmappen jeder
Größe bearbeiten kann, muß
es erst ermitteln, wie viele Tabellenblätter
die Mappe enthält,
und diese dann komplett
in die Gruppe aufnehmen.
Das unten abgedruckte Makro
markiert alle Tabellenblätter
einer Arbeitsmappe
und formatiert sie komplett
in der Schriftart Arial, 14°.


Makro-Listing zum Formatieren aller Blätter einer Mappe:
Sub Alle_auswählen()
ReDim Matrixvariable(1 To Sheets.Count)
For Each Blattname In Sheets
Blattzähler = Blattzähler + 1
Matrixvariable(Blattzähler) = Blattname.Name
Next
For y = 1 To Blattzähler
Next
Sheets(Matrixvariable()).Select
With Selection.Font
.Name = "Arial"
.Size = 14
End With
End Sub