AW: bestimmten Zellinhalt formatieren
28.01.2013 19:53:14
Daniel
HI
stehen die Werte wirklich so alle zusammen in einer Zelle?
sollte da ne Formel stehen, gehts gar nicht.
für das Beispiel funktioniert dieser Code, bearbeitet werden die selektierten Zellen:
Sub test()
Dim Zelle As Range
Dim txt As String
Dim L1 As Long, L2 As Long
For Each Zelle In Selection
txt = Zelle.Value
L1 = InStr(txt, "+")
Do While L1 0
L2 = InStr(L1 + 1, txt, Chr(10))
If L2 = 0 Then L2 = Len(txt) + 1
With Zelle.Characters(Start:=L1, Length:=L2 - L1).Font
.FontStyle = "fett"
.Color = -16776961
End With
L1 = InStr(L1 + 1, txt, "+")
Loop
L1 = InStr(txt, "-")
Do While L1 0
L2 = InStr(L1 + 1, txt, Chr(10))
If L2 = 0 Then L2 = Len(txt) + 1
With Zelle.Characters(Start:=L1, Length:=L2 - L1).Font
.FontStyle = "fett"
End With
L1 = InStr(L1 + 1, txt, "-")
Loop
Next
End Sub
gruß Daniel