Thema: Alle in Excel verfügbaren Schriften listen

StandardModule: basMain

Sub SchriftAuslesen()
   Dim cnt As CommandBarControl
   Dim iCounter As Integer
   Application.ScreenUpdating = False
   Set cnt = Application.CommandBars.FindControl(ID:=1728)
   For iCounter = 1 To cnt.ListCount
      With Cells(iCounter, 1)
         .Value = cnt.List(iCounter)
         .Font.Name = cnt.List(iCounter)
      End With
   Next iCounter
   Columns(1).AutoFit
   Application.ScreenUpdating = True
End Sub

Beiträge aus dem Excel-Forum zu den Themen Format und Schrift