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

Forumthread: Standardschrift bei vorhandenen Dateien ändern

Standardschrift bei vorhandenen Dateien ändern
29.10.2017 09:48:25
Christian
Hallo bestes Forum,
wie man in Excel die Standard-Schriftart für neue Mappen einstellt, ist mit bekannt (über Datei - Optionen)
Wenn ich aber bei vorhandenen Dateien die Schriftart ändern will, gehe ich bisher so vor:
- markiere in jedem Tabellenblatt alle Zellen und setze die Schriftart auf den gewünschten Typ (Bsp: Arial statt Callibri)
Problem dabei ist:
Wenn in einer Datei, die z.Bsp. mit Standard-Schriftart Callibri erzeugt wurde und auf Arial umgestellt werden soll, ein neues Tabellenblatt eingefügt wird, ist hier die Schriftart wieder Callibri.
Ebenso sind bei allen Tabellenblätter alle Spalten- und Zeilenköpfe noch in Callibri beschriftet.
Kennt ihr eine elegante Methode, wie man die Standard-Schriftart bei vorhandenen Dateien umstellen kann?
Ich würde gerne vermeiden, alle (mehrere 100) betroffenen Dateien neu zu erstellen und alle Einträge, Formeln, Formatierungen, bedingte Formatierungen, Seiten-Layouts, etc. neu zu erstellen.
Vielen Dank vorab
Grüße
Christian
Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Standardschrift bei vorhandenen Dateien ändern
29.10.2017 11:28:45
fcs
Hallo Christian,
man muss Namen der Schriftart für die Formatvorlage "Standard" ändert.
Leider wird dadurch nicht in allen Zellen in den vorhandenen Tabellenblättern auch die Schriftart geändert Man muss zusätzlich also noch in allen Blättern das Zellformat auf die Standardschrift ändern.
Hier verwendet man am besten ein Makro für alle Änderungen.
Gruß
Franz
Sub aaStandardschrift_aendern_in_Arial()
' Standard-Schrift in Arbeitsmappe ändern
Dim wks As Worksheet
Dim FontName As String
FontName = "Arial"
If MsgBox("Standardschrift in Arbeitsmappe ändern in """ & FontName & """", _
vbOKCancel + vbQuestion, "Standardschrift """ & FontName & """") = vbCancel Then Exit  _
Sub
ActiveWorkbook.Styles("Normal").Font.Name = FontName
For Each wks In ActiveWorkbook.Worksheets
wks.Cells.Font.Name = FontName
Next
End Sub

Anzeige
AW: Standardschrift bei vorhandenen Dateien ändern
29.10.2017 13:35:39
Christian
Hallo Franz,
vielen Dank für deine Lösung.
Der wichtige Hinweis von dir war für mich:
"man muss den Namen der Schriftart für die Formatvorlage "Standard" ändern."
Mit Formatvorlagen in Excel hab ich mich bisher noch nicht beschäftigt.
Dieses Prozedere habe ich jetzt mit dem Macrorecoder aufgenommen und werde als nächstes versuchen, das mit deinem Code zu kombinieren, um auch die Schriftart in den vorhandenen Tabellenblättern anzupassen.
Falls ich dabei scheitern sollte, melde ich mich noch mal.
Hab vielen Dank
Grüße
Christoiph
Anzeige
Danke, das hat geklappt
30.10.2017 10:44:11
Christian
Hallo Franz,
dein Hinweis bzgl Formatvorlage und dein Makro hat uns sehr geholfen.
Christoph und ich haben da gestern noch lange zusammen gesessen und es schlussendlich hinbekommen.
Vielen Dank
Christian

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige

Infobox / Tutorial

Standardschrift bei vorhandenen Excel-Dateien ändern


Schritt-für-Schritt-Anleitung

Um die Excel-Schriftart für alle Tabellenblätter zu ändern, kannst Du folgende Schritte ausführen:

  1. Öffne die Excel-Datei, in der Du die Standardschriftart ändern möchtest.
  2. Gehe zu den Optionen:
    • Klicke auf Datei > Optionen.
    • Wähle den Reiter Allgemein.
    • Hier kannst Du unter "Standard-Schriftart" die gewünschte Schriftart auswählen (z.B. Arial).
  3. Verwende ein Makro, um die Schriftart für alle bestehenden Tabellenblätter zu ändern. Füge den folgenden VBA-Code ein:
Sub aaStandardschrift_aendern_in_Arial()
' Standard-Schrift in Arbeitsmappe ändern
Dim wks As Worksheet
Dim FontName As String
FontName = "Arial"
If MsgBox("Standardschrift in Arbeitsmappe ändern in """ & FontName & """", _
vbOKCancel + vbQuestion, "Standardschrift """ & FontName & """") = vbCancel Then Exit Sub
ActiveWorkbook.Styles("Normal").Font.Name = FontName
For Each wks In ActiveWorkbook.Worksheets
    wks.Cells.Font.Name = FontName
Next
End Sub
  1. Führe das Makro aus, um die Schriftart in allen vorhandenen Tabellenblättern zu ändern.

Häufige Fehler und Lösungen

  • Fehler: Schriftart lässt sich nicht ändern
    Möglicherweise ist die Formatvorlage "Standard" nicht korrekt eingestellt. Stelle sicher, dass Du die Schriftart in der Formatvorlage "Normal" änderst.

  • Problem: Neue Tabellenblätter verwenden die alte Schriftart
    Dies geschieht, weil neue Tabellenblätter die Standard-Schriftart verwenden, die in den Excel-Optionen festgelegt ist. Verwende ein Makro, um die Schriftart für alle bestehenden Blätter zu ändern.


Alternative Methoden

Wenn du die Excel-Standardschrift schnell ändern möchtest, gibt es alternative Methoden:

  • Formatvorlagen nutzen: Du kannst eine neue Formatvorlage erstellen und diese auf alle Zellen anwenden.
  • Manuelles Ändern: Markiere alle Zellen in einem Blatt und ändere die Schriftart manuell, aber dies ist zeitaufwändig, wenn viele Blätter betroffen sind.

Praktische Beispiele

Ein Beispiel für eine Schriftartänderung in Excel:

Angenommen, Du möchtest die Schriftart in einem Dokument von Calibri auf Arial ändern. Du kannst den oben genannten VBA-Code verwenden, um dies in allen Tabellenblättern durchzuführen. Wenn die Schriftgröße ebenfalls angepasst werden soll, kannst Du den Code erweitern:

wks.Cells.Font.Size = 12 'Ändert die Schriftgröße auf 12

Tipps für Profis

  • Makro Recorder verwenden: Nutze den Macro Recorder, um dir die Schritte zum Ändern der Schriftart aufzuzeichnen. Das hilft dir, den VBA-Code besser zu verstehen.
  • VBA anpassen: Passe den VBA-Code an, um andere Schriftarten oder Schriftgrößen festzulegen. Experimentiere, um die besten Ergebnisse für deine Dokumente zu erzielen.
  • Backup erstellen: Erstelle vor der Ausführung von Makros eine Sicherungskopie deiner Datei, um Datenverluste zu vermeiden.

FAQ: Häufige Fragen

1. Wie ändere ich die Excel-Standardschriftart dauerhaft?
Du kannst die Standardschriftart in den Excel-Optionen unter "Allgemein" festlegen. Die Änderungen gelten für neue Dokumente.

2. Warum wird die Schriftart in neuen Tabellenblättern nicht übernommen?
Neue Tabellenblätter übernehmen die Standard-Schriftart, die in den Excel-Optionen festgelegt ist. Verwende ein Makro, um alle bestehenden Blätter zu ändern.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige