Schriftarten in Excel auslesen und vergleichen
Schritt-für-Schritt-Anleitung
Um alle installierten Schriftarten in Excel auszulesen, kannst du das folgende Makro verwenden. Dieses Makro erstellt eine Übersicht der Schriftarten in Spalte A und ermöglicht es dir, einen Mustertext in Spalte B zu sehen.
-
Öffne Excel und drücke ALT + F11, um den VBA-Editor zu öffnen.
-
Klicke auf Einfügen und wähle Modul aus.
-
Füge den folgenden Code in das Modul ein:
Sub SchriftartenLesen()
Dim CBC As CommandBarControl
Dim iCnt As Integer, strTxt As String
Application.ScreenUpdating = False
strTxt = InputBox("Testtext:", "")
If strTxt = "" Then Exit Sub
Set CBC = Application.CommandBars.FindControl(ID:=1728)
For iCnt = 1 To CBC.ListCount
With Cells(iCnt, 1)
.Value = strTxt
.Font.Name = CBC.List(iCnt)
End With
Cells(iCnt, 2) = CBC.List(iCnt)
Next iCnt
Columns("A:B").AutoFit
Application.ScreenUpdating = True
End Sub
-
Schließe den VBA-Editor und kehre zu Excel zurück.
-
Führe das Makro aus, indem du ALT + F8 drückst, das Makro auswählst und auf Ausführen klickst.
-
Gib den gewünschten Mustertext ein, um alle Schriftarten zu vergleichen.
Häufige Fehler und Lösungen
-
Fehler: „Das Makro kann nicht ausgeführt werden.“
- Stelle sicher, dass die Makros in deiner Excel-Datei aktiviert sind. Gehe zu
Datei -> Optionen -> Trust Center -> Einstellungen für das Trust Center und aktiviere Makros.
-
Fehler: „Nicht genügend Ressourcen, um Schriftarten anzuzeigen.“
- Excel kann in der Regel bis zu 4000 Schriftarten verarbeiten. Überprüfe die Anzahl der installierten Schriftarten auf deinem System.
Alternative Methoden
Wenn das Makro nicht deinen Anforderungen entspricht, kannst du auch folgende Alternativen in Betracht ziehen:
- Verwendung eines Add-Ins: Es gibt verschiedene Excel-Add-Ins, die das Auslesen und Vergleichen von Schriftarten erleichtern.
- Manuelles Einfügen: Du kannst auch manuell die Schriftarten in eine Liste eingeben und den Vergleich selbst durchführen, indem du die Formatierungsoptionen in Excel nutzt.
Praktische Beispiele
Hier ist ein Beispiel für das Ergebnis, das du mit dem Makro erhalten kannst:
| Mustertext |
Schriftart |
| Dies ist ein Test. |
Arial |
| Dies ist ein Test. |
Times New Roman |
| Dies ist ein Test. |
Verdana |
Du kannst den Mustertext anpassen, um die Schriftarten in deiner Excel-Datei besser zu vergleichen.
Tipps für Profis
- Schriftarten-Management: Halte dein System sauber und beschränke die Anzahl der installierten Schriftarten, um die Leistung von Excel zu verbessern.
- Regelmäßige Updates: Stelle sicher, dass deine Excel-Version auf dem neuesten Stand ist, um alle Funktionen optimal nutzen zu können.
- PDF-Export: Nach dem Auslesen der Schriftarten kannst du die Excel-Datei einfach in eine PDF-Datei umwandeln, ohne dass die Schriftarten installiert bleiben müssen.
FAQ: Häufige Fragen
1. Wie viele Schriftarten kann ich in Excel verwenden?
Die maximale Anzahl von Schriftarten, die Excel gleichzeitig verarbeiten kann, liegt bei etwa 4000.
2. Kann ich die Schriftarten aus Excel direkt in ein Dokument exportieren?
Ja, du kannst die Schriftarten und deren Mustertexte in eine PDF-Datei exportieren, indem du die Excel-Datei einfach als PDF speicherst.
3. Funktioniert das Makro in allen Excel-Versionen?
Das Makro sollte in den meisten modernen Excel-Versionen funktionieren, jedoch kann die Anzahl der unterstützten Schriftarten je nach Version variieren.