Fetter Teiltext einer Zelle in Klammern setzen
21.07.2006 08:36:50
Gregor
Mit dem nachfolgenden Code erreiche ich, dass ein in Klammern gesetzter Teiltext einer Zelle fett formatiert wird.
Nun zu meiner Frage: Ist es möglich, dass ganze umgekehrt zu machen: d.h., ein fett formatierter Teiltext einer Zelle in Klammern zu setzen? Wie würde ein entsprechender Code lauten?
Vielen Dank für deine kompetente Hilfe!
Grüsse Gregor
Sub Fett_Schrift()
Application.ScreenUpdating = False
Dim intStart As Integer, intEnde As Integer
Dim rng As Range
For Each rng In Range("e1:E" & Anzahl)
If Len(rng) > 0 Then
intStart = InStr(1, rng, "[")
intEnde = InStr(1, rng, "]")
If intStart > 0 And intEnde > 0 Then
Do
rng.Characters(intStart + 1, intEnde - intStart - 1).Font.Bold = True
intStart = InStr(intEnde + 1, rng, "[")
intEnde = InStr(intEnde + 1, rng, "]")
Loop While intStart > 0 And intEnde > 0
End If
End If
Next
End Sub
Anzeige