Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Einheitliche Schrift in Arbeitsmappe

Einheitliche Schrift in Arbeitsmappe
22.06.2020 09:56:14
Gaby
Hallo,
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ß :)
Anzeige

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Einheitliche Schrift in Arbeitsmappe
22.06.2020 10:02:54
Sigi
Hallo Gaby,
warum willst du bei "Basiskenntnisse in Excel" dies mit VBA machen?
Per Hand:
erste Tabelle markieren - Umschalt-/Shifttaste gedrückt halten - letzte Tabelle markieren - alle Zellen markieren (oben links in der Ecke) - dann Schriftart und Schriftgröße auswählen - fertig.
Sigi
Anzeige
AW: Einheitliche Schrift in Arbeitsmappe
22.06.2020 10:05:40
Gaby
Danke, ja, ich weiß wie man einen VBA Code einfügt, aber ich weiß nicht wie man diesen erstellt, also die Codierung an sich ist mir nicht möglich.
Per Hand weiß ich das, aber ich habe 30 Arbeitsblätter, sodass ich das 30x durchführen muss.
Ich dachte, dass es mit einem Code einfacher ist, dies umzusetzen :-).
Anzeige
AW: Einheitliche Schrift in Arbeitsmappe
22.06.2020 10:13:22
Klaus
erste Tabelle markieren - Umschalt-/Shifttaste gedrückt halten - letzte Tabelle markieren
Folge Sigis Anweisungen, dann musst du es nur einmal per Hand machen und nicht 30 mal. Oder hast du 30 Dateien?
LG,
Klaus M.
Als Code
22.06.2020 10:06:19
lupo1

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

Anzeige
AW: Als Code
22.06.2020 10:10:13
Gaby
DANKE :)
Bei mir am Ende noch ...
22.06.2020 10:19:48
lupo1
Sheets(1).Select
... nötig, sonst sehr gefährlich!
AW: Einheitliche Schrift in Arbeitsmappe
22.06.2020 10:12:25
Klaus
Hi Gabi,
ich weiß ja nicht was du vorhast, schließe mich aber im Prinzip Sigi an. Falls es unbedingt VBA sein muss, dies setzt alles auf "Calibri Size 20":
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.
LG,
Klaus
Anzeige

Forumthreads zu verwandten Themen

Anzeige
Anzeige

Infobox / Tutorial

Einheitliche Schrift in Excel-Arbeitsmappen festlegen


Schritt-für-Schritt-Anleitung

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.

  1. Öffne Excel und drücke ALT + F11, um den VBA-Editor zu öffnen.

  2. Klicke auf Einfügen und wähle Modul.

  3. 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
  4. Schließe den VBA-Editor und gehe zurück zu Excel.

  5. Führe das Makro aus, indem du ALT + F8 drückst, das Makro UeberallGleicheSchrift auswählst und auf Ausführen klickst.


Häufige Fehler und Lösungen

  • Excel Schriftart ändern funktioniert nicht: Überprüfe, ob das Makro korrekt ausgeführt wurde und dass du die richtige Schriftart und -größe im Code angegeben hast.
  • Schriftart wird nur auf einem Blatt geändert: Stelle sicher, dass du Sheets.Select und Cells.Select im Code verwendest, um alle Blätter und Zellen auszuwählen.
  • VBA Schriftart ändern Fehler: Manchmal kann es zu Problemen kommen, wenn Blätter geschützt sind. Stelle sicher, dass alle Arbeitsblätter entsperrt sind, bevor du das Makro ausführst.

Alternative Methoden

Wenn du die Schriftart für alle Tabellenblätter ohne VBA ändern möchtest, kannst du dies auch manuell tun:

  1. Halte die Umschalt-Taste gedrückt und wähle das erste und das letzte Arbeitsblatt aus, um alle Blätter zu markieren.
  2. Klicke auf das obere linke Feld der Tabelle, um alle Zellen auszuwählen.
  3. Ändere im Ribbon die Schriftart und die Schriftgröße.

Diese Methode ist zwar zeitaufwendiger, aber eine gute Alternative, wenn du keine VBA-Kenntnisse hast.


Praktische Beispiele

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

Tipps für Profis

  • Excel Standardschrift ändern: Du kannst die Standardschriftart für neue Dokumente in Excel festlegen, indem du die Optionen anpasst. Gehe zu Datei > Optionen > Allgemein und ändere die Schriftart.
  • VBA Schriftart für komplexe Formatierungen: Nutze den Makrorekorder, um dir die notwendigen VBA-Befehle zu notieren, wenn du komplexe Formatierungen anwenden möchtest.
  • Schriftart bestimmen: Wenn du in verschiedenen Dokumenten arbeitest, teste verschiedene Schriftarten, um zu sehen, welche am besten für deine Präsentationen geeignet sind.

FAQ: Häufige Fragen

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.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige