Alle Blätter einer Arbeitsmappe formatieren

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 aufgeführte 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