Frage zu Schriften

Forumthread: Frage zu Schriften

Frage zu Schriften

26.12.2012 03:27:18

Reinhard

Hallo !
Mal eine allgemeine Frage.
Kann ich Schriften in Gruppen sortieren z.B. eine Gruppe Schreibschriften,
eine Gruppe Zierschriften usw. ?
Grüße aus Trier

1
Beitrag zum Forumthread

Beitrag zu diesem Forumthread

Betreff

Datum

Anwender

AW: Frage zu Schriften

26.12.2012 11:48:43

Peter

AW: Frage zu Schriften

26.12.2012 11:48:43

Peter

Hallo Reinhard,
als erste Idee würde ich in einer Hilfs-Spalte mit Hilfe des Font.Name ein Kennzeichen setzen, nach dem dann sortiert wird:

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ß Peter

Forumthread: Frage zu Schriften

1 Beitrag zum Forumthread Beitrag zu diesem Forumthread

VBA Beispiele zu diesem und ähnlichen Themen

1
Beitrag zum Forumthread

Beitrag zu diesem Forumthread