Wie Sie alle Schriftarten in einer Excel-Tabelle auflisten

So erkennen Sie auf einen Blick, welche Schriften in Excel zur verfügung stehen

Die Schriftart für eine Zelle können Sie komfortabel auswählen. Aber die Liste der installierten Schriften ist lang. Wenn Sie auf der Suche nach der passenden Schrift für eine Darstellung sind oder ein wenig mit Schriften experimentieren möchten, hilft Ihnen ein Makro weiter.

Setzen Sie das folgende Makro ein, wenn Sie alle verfügbaren Schriften in Spalte A einer neuen Arbeitsmappe auflisten möchten:

Sub SchriftartenEintragen()

Dim Schriftenliste As CommandBarControl, Zaehler As Integer

Application.ScreenUpdating = False

Workbooks.Add

Set Schriftenliste = Application.CommandBars.FindControl(ID:=1728)

For Zaehler = 1 To Schriftenliste.ListCount

With Cells(Zaehler, 1)

.Value = Schriftenliste.List(Zaehler)

.Font.Name = Schriftenliste.List(Zaehler)

End With

Next Zaehler

Columns(1).AutoFit

Application.ScreenUpdating = True

End Sub

Excel trägt den Namen jeder Schrift in die Zellen ein und formatiert die Zelle sofort in der passenden Schrift. Die folgende Abbildung zeigt, wie das aussehen kann: