Zellenformatierung erkennen

Forumthread: Zellenformatierung erkennen
1 Beitrag zu diesem Forumthread
Anzeige

Forumthread: Zellenformatierung erkennen

04.03.2005 11:50:20

atikar

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

1
Beitrag zum Forumthread

Beitrag zu diesem Forumthread

Betreff

Datum

Anwender

AW: Zellenformatierung erkennen

04.03.2005 12:31:19

Matthias G

AW: Zellenformatierung erkennen

04.03.2005 12:31:19

Matthias G

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

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!