Mal eine allgemeine Frage.
Kann ich Schriften in Gruppen sortieren z.B. eine Gruppe Schreibschriften,
eine Gruppe Zierschriften usw. ?
Grüße aus Trier
Public Sub Druck_Fonts_Name()
Dim lZeile As Long
For lZeile = 1 To Cells(Rows.Count, 1).End(xlUp).Row
Select Case Range("A" & lZeile).Font.Name
Case "Arial"
Range("B" & lZeile).Value = 1
Case "Lucida Handwriting"
Range("B" & lZeile).Value = 2
' usw.
Case Else
Range("B" & lZeile).Value = 9
End Select
Next lZeile
End Sub
Gruß PeterDie 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