Sub Chris()
Dim i As Integer, Schriftarten As Object
Set Schriftarten = Application.CommandBars("Formatting").FindControl(ID:=1728)
For i = 1 To Schriftarten.ListCount
Range("A1").Font.Name = Schriftarten.List(i)
Range("B1").Value = Range("A1").Font.Name
Application.Wait (Now + TimeValue("0:00:01"))
Next i
End Sub
Sub Schritartenliste()
Dim i As Integer, Schriftarten As Object
Set Schriftarten = Application.CommandBars("Formatting").FindControl(ID:=1728)
For i = 1 To Schriftarten.ListCount
Range("A" & i).Value = Schriftarten.List(i)
Range("B" & i).Font.Name = Schriftarten.List(i)
Range("B" & i).Value = "Mustertext"
Next i
End Sub
Um in Excel alle Schriftarten anzuzeigen und den Text in verschiedenen Schriftarten darzustellen, kannst du ein VBA-Makro verwenden. Folge diesen Schritten:
Öffne Excel und drücke ALT + F11, um den VBA-Editor zu öffnen.
Klicke auf Einfügen und dann auf Modul, um ein neues Modul zu erstellen.
Kopiere den folgenden VBA-Code in das Modul:
Sub SchriftartenAnzeigen()
Dim i As Integer, Schriftarten As Object
Set Schriftarten = Application.CommandBars("Formatting").FindControl(ID:=1728)
For i = 1 To Schriftarten.ListCount
Range("A" & i).Value = Schriftarten.List(i) ' Namen der Schriftarten in Spalte A
Range("B" & i).Font.Name = Schriftarten.List(i) ' Schriftart in Spalte B
Range("B" & i).Value = "Mustertext" ' Beispieltext in der jeweiligen Schriftart
Next i
End SubSchließ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.
Jetzt solltest du in Spalte A eine Liste von Schriftarten sehen, während in Spalte B der Text "Mustertext" in der jeweiligen Schriftart angezeigt wird.
Fehler: "Keine weiteren neuen Schriftarten dürfen der Arbeitsmappe hinzugefügt werden."
Fehler: Das Makro läuft nicht.
Datei > Optionen > Sicherheitscenter > Einstellungen für das Sicherheitscenter > Makro-Einstellungen und aktiviere die Option für die Ausführung von Makros.Falls du kein VBA verwenden möchtest, kannst du auch die integrierte Funktion von Excel nutzen, um Schriftarten zu ändern:
Start.Aber beachte, dass du mit dieser Methode keine Liste von Schriftarten gleichzeitig anzeigen kannst.
Hier sind einige praktische Beispiele, wie du die oben genannten Methoden nutzen kannst:
Beispiel 1: Um alle Schriftarten anzuzeigen, führe das VBA-Makro aus. Du erhältst eine vollständige Liste der Schriftarten mit Namen in Spalte A und den Text in verschiedenen Schriftarten in Spalte B.
Beispiel 2: Wenn du in einer Präsentation verschiedene Schriftarten nutzen möchtest, kannst du das Makro anpassen, um spezifische Schriftarten auszuwählen und den Text entsprechend zu formatieren.
Application.Wait-Methode im VBA, um zwischen den Schriftartenwechseln eine Pause einzufügen, sodass du die Änderungen besser beobachten kannst.1. Wie kann ich die Schriftart in einer bestimmten Zelle ändern?
Du kannst die Schriftart in Excel ändern, indem du die Zelle auswählst, zur Registerkarte Start gehst und im Dropdown-Menü die gewünschte Schriftart auswählst.
2. Funktioniert das Makro in allen Excel-Versionen?
Das bereitgestellte Makro sollte in den meisten aktuellen Excel-Versionen funktionieren. Achte darauf, dass du die richtige Version von Excel verwendest, die Makros unterstützt.
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen