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"