HERBERS Excel-Forum - die Beispiele

Thema: Alle in Excel verfügbaren Schriften listen

Home

Gruppe

Format

Problem

Wie kann ich in Spalte A alle in Excel verfügbaren schriften auflisten und in der entsprechenden Schriftart formatieren lassen?

Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.
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

Bedingte Formatierung vor Copy/Paste schützen Bed. Formatierung, wenn alle Beding. erfüllt.
Telefonnummer automatisch per VBA formatieren Komplettes Excel Sheet kopieren mit Formaten
Bedingte Formatierung per VBA mit Schleife Kartendiagramm per VBA erstellen und formatieren
bedingte Formatierung Zellfarbe per Cond Formatting nach Zellfarbe änder
UserForm im Querformat drucken Bedingte Formatierung
Teilstringabfrage bei bedingter Formatierung Bedingte Formatierung mit UND Verknüpfung
Textformat (VBA) Bedingte Formatierung Frage
Array in Tabelle kopieren, Verlust von Format Übernahme in Word Format wird nicht übernommen
VBA, 4 Informationen in 4 Zellen schreiben bedingte Formatierung mit mehreren Bedingungen
Datum aus Oracle-Abfrage als Datum formatieren Bedingte Formattierung
Bedingte Formatierung - kleiner als Fehler Zahlenformat Handynr.
Diagramme und ihr Format bedingte formatierung per VBA
Datenbeschriftung Bedingte Formatierung bezogen auf 2. Zelle
Formatgleichheit von Zeichenfolgen für SVERWEIS bedingte Formatierung
Bedingte Formatierung Tabellen - Zellen - Formatieren -
Format übertragen Datumsformatierung
Formatierung anderer Diagramme Zellenformatierung speichern
Schriftgröße und -art im Kombinationsfeld Diagrammformatierung übertragen
Zahlenformat global überprüfen wenn z.B. Zahl 12 dann grün (Bedingte Formatierung
wenn z.B. Zahl 12 dann grün (Bedingte Formatierung Zahlenformatierung in einem Textfeld
Zahlenformat bedingte Formatierung für zellenbereich
Format Datum / Uhrzeit keine neuen Schriftarten
Eilt - Formatierung "in 1000" Bedingte Formatierung mit 2 Bedingungen
Combobox, CheckBox, TextBox Formatierung Formatierung Dezimalzahlen bei Combobox-Eingaben
Spaltenüberschrift unter Bedingung eintragen