Zellenformatierung erkennen

Bild

Betrifft: Zellenformatierung erkennen
von: atikar
Geschrieben am: 04.03.2005 10:50:20
Hi Leute,
kann ich mit einem Makro abragen welche formatierung vorhanden ist.
z.B. in einer Zelle steht der Text "Ich bin da"
Jetzt ist das Wort "Ich" fett geschrieben
das Wort "bin" kursiv
und das Wort "da" unterstrichen.
Das Makro soll mir jetzt sagen das von Buchstabe 1-3 fett ist von Buchstabe 5-7 kursiv usw.
ciao
atikar

Bild

Betrifft: AW: Zellenformatierung erkennen
von: Matthias G
Geschrieben am: 04.03.2005 11:31:19
Hallo Atikar,
ein Beispiel:
Sub Test()
Dim l As Long, i As Long
l = Len(ActiveCell)
For i = 1 To l
    Debug.Print i & ". Zeichen:"
    With ActiveCell.Characters(Start:=i, Length:=1).Font
        Debug.Print "  Font: " & .Name
        Debug.Print "  FontStyle: " & .FontStyle
        Debug.Print "  Size: " & .Size
        Debug.Print "  Bold: " & .Bold
        Debug.Print "  ColorIndex: " & .ColorIndex
    End With
Next
End Sub
Gruß Matthias
 Bild

Beiträge aus den Excel-Beispielen zum Thema "Zellenformatierung erkennen"