Alle Blätter einer Arbeitsmappe formatieren

Will man einer kompletten Arbeitsmappe durchgehend über alle Tabellenblätter dieselbe Formatierung zuweisen, markiert man 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 Umschalt-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, muss 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
  Sheets(Matrixvariable()).Select
  With Selection.Font
    .Name = "Arial"
    .Size = 14
  End With
Next

End Sub