welchen code benötige ich, um mit VBA die Schrift (Art und Größe) innerhalb der gesamten Arbeitsmappe (30 Arbeitsblätter)
zu vereinheitlichen?
Danke und Gruß :)
Sub UeberallGleicheSchrift()
Sheets.Select
Cells.Select
With Selection.Font
.Name = "Calibri"
.Size = 10
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ThemeColor = xlThemeColorLight1
.TintAndShade = 0
.ThemeFont = xlThemeFontMinor
End With
End Sub
Sub test()
Const MyFontName As String = "Calibri"
Const MyFontSize As Long = 20
Dim wks As Worksheet
For Each wks In Worksheets
With wks.Cells.Font
.Name = MyFontName
.Size = MyFontSize
End With
Next wks
End Sub
was fett oder kursiv ist, wird Calibri 20 - bleibt dabei aber fett bzw. kursiv. Das auch zu machen wäre nur 1 oder 2 Zeilen Aufwand, hier mal ein Beispiel um alles Fett zu machen:Sub test()
Const MyFontName As String = "Calibri"
Const MyFontSize As Long = 20
Dim wks As Worksheet
For Each wks In Worksheets
With wks.Cells.Font
.Name = MyFontName
.Size = MyFontSize
.Bold = True
End With
Next wks
End Sub
Nach dem Schema könnte man das fast beliebig erweitern, der Makrorekorder gibt hier aufschluss über die dafür nötigen Befehle.Um die Schriftart in einer Excel-Arbeitsmappe für alle Tabellenblätter zu ändern, kannst du den folgenden VBA-Code verwenden. Dieser Code stellt sicher, dass die Schriftart und -größe in der gesamten Arbeitsmappe vereinheitlicht werden.
Öffne Excel und drücke ALT + F11, um den VBA-Editor zu öffnen.
Klicke auf Einfügen und wähle Modul.
Kopiere den folgenden Code und füge ihn in das Modul ein:
Sub UeberallGleicheSchrift()
Sheets.Select
Cells.Select
With Selection.Font
.Name = "Calibri" ' Hier kannst du die gewünschte Schriftart festlegen
.Size = 10 ' Hier kannst du die Schriftgröße festlegen
End With
End Sub
Schließe den VBA-Editor und gehe zurück zu Excel.
Führe das Makro aus, indem du ALT + F8 drückst, das Makro UeberallGleicheSchrift auswählst und auf Ausführen klickst.
Sheets.Select und Cells.Select im Code verwendest, um alle Blätter und Zellen auszuwählen.Wenn du die Schriftart für alle Tabellenblätter ohne VBA ändern möchtest, kannst du dies auch manuell tun:
Umschalt-Taste gedrückt und wähle das erste und das letzte Arbeitsblatt aus, um alle Blätter zu markieren.Diese Methode ist zwar zeitaufwendiger, aber eine gute Alternative, wenn du keine VBA-Kenntnisse hast.
Hier sind einige Beispiele, wie du die Excel Schriftart für alle Tabellenblätter ändern kannst:
Um die Schriftart auf "Arial" und die Größe auf 12 zu setzen, ändere die entsprechenden Zeilen im Code:
.Name = "Arial"
.Size = 12
Wenn du zusätzlich die Schriftart fett machen möchtest, füge die folgende Zeile hinzu:
.Bold = True
Datei > Optionen > Allgemein und ändere die Schriftart.1. Wie kann ich die Schriftart für alle Tabellenblätter in Excel ändern? Du kannst dies entweder manuell tun oder ein VBA-Makro verwenden, wie im obigen Beispiel gezeigt.
2. Was tun, wenn die Schriftart nicht geändert werden kann? Überprüfe, ob das Arbeitsblatt geschützt ist oder ob du das Makro korrekt ausgeführt hast. Achte darauf, dass alle Zellen ausgewählt sind.
3. Kann ich die Schriftart für nur einige Tabellenblätter ändern? Ja, du kannst den VBA-Code anpassen, um nur bestimmte Blätter auszuwählen, indem du die Namen der Blätter in einem Array definierst.
4. Wie speichere ich meine Änderungen in Excel? Vergiss nicht, deine Arbeitsmappe zu speichern, nachdem du die Schriftart geändert hast, um sicherzustellen, dass alle Anpassungen erhalten bleiben.