Herbers Excel-Forum - das Archiv

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
Excel-Beispiele zum Thema "Zellenformatierung erkennen"
Verweise anhand einer Kopfzeile erkennen In der UserForm aufrufende Schaltfläche erkennen
Im Change-Ereignis Eingabe in oder Leeren von Zellen erkennen