Ist es, bzw. wie ist es möglich wenn z.B. lt folgendem Beispiel ein Eintrag getätigt wird, die Anzahl der "xlUnderlineStyleSingle" zu bestimmen?
With Range("A9")
.Value2 = "Ich nicht du er, Sie"
With .Characters(Start:=1, Length:=3).Font
.Underline = xlUnderlineStyleSingle
.Size = 15
End With
With .Characters(Start:=11, Length:=2).Font
.Underline = xlUnderlineStyleSingle
.Size = 11
End With
End With
PS: Dies sollte natürlich auch möglich sein, wenn das Format manuell gesetzt wurde.
Gruss
Lorenz