Hallo zusammen,
ich möchte alle mit "C" beginnenden Fonts in eine ListBox schreiben.
Mit der getroffenen Auswahl soll dann Zelle C5 formatiert werden.
Kann mir jemand einen Tipp geben, wie ich mit den Fonts entsprechend umgehen kann?
Danke schon mal...
' ********************************************************************** ' Modul: Modul2 Typ: Allgemeines Modul ' **********************************************************************
OptionExplicit
PublicSub Beispiel() Dim objControl As CommandBarControl Dim intCounter AsInteger Set objControl = Application.CommandBars.FindControl(ID:=1728) With objControl For intCounter = 1 To .ListCount If UCase$(Left$(.List(intCounter), 1)) = "C"Then Debug.Print .List(intCounter) Next EndWith EndSub