Guten Morgen alle zusammen,
das folgende Makro funktioniert wunderbar,
ich würde es gerne um einen Arbeitschritt erweitern,
in dem das Makro in die letzte Zeile mit Text spring (das macht es schon) und dann in der ZELLE zwischen den Zeichen "[" und "]", alles was dazwischen steht in hellblau einfrärbt. Könnte mir dabei jemand behilflich sein.
Mit besten Grüßen
Jürgen
Dim iStart As Integer, iEnde As Integer 'Titel in erster Zeile rot färben
Dim rngC As Range
For Each rngC In Selection
iStart = InStr(rngC, ":") + 2
iEnde = InStr(rngC, "(") - 2
With rngC.Characters(iStart, iEnde - iStart + 1).Font
.Color = RGB(255, 0, 0)
Selection.End(xlDown).Select 'Spring in die letzte Zeile
End With
Next
End Sub