Text zwischen zwei Zeichen farbig markieren

[elbth409]

Hallo,

ich habe eine Tabelle, bei der in einer Spalte jede Zelle einen Text mit Klammern enthält. Ich würde gerne die Zeichenfolge zwischen der öffenenden Klammer und der schließenden Klammer rot markeiren, damit ich die Klammern in dem Text besser sehen und dann auswerten kann.

Also z.B. "Die Kripo in Deutschland hat Ermittlungen aufgenommen, aber zur Zeit noch keine Hinweise (zumindest mein aktueller Stand) auf Fremdeinwirkung"

Die einzlenen Klammern rot zu färben habe ich hinbekommen, aber nicht die Zeichenfolge dazwischen.

Ich kenne mich leider nicht gut mit Excel aus, deshalb bitte ich um Rücksicht Ich habe aber auch keine Lust, in jede Zelle reinzuklicken, den entsprechenden Teil zu markieren und die Schriftfarbe zu ändern...

Vielen Dank vorab!

[Kuwer]

Hallo,

markiere die Zellen und starte dann folgendes Makro:

Code:

Sub KlammernRot()
  Dim lngAE(1 To 2) As Long
  Dim rngZelle As Range
  Set rngZelle = Range("B2")
  For Each rngZelle In Selection.Cells
    With rngZelle
      lngAE(1) = InStr(1, .Value, "(")
      lngAE(2) = InStr(1, .Value, ")")
      If lngAE(1) * lngAE(2) Then
        .Characters(Start:=lngAE(1), Length:=lngAE(2) - lngAE(1) + 1).Font.Color = vbRed
      End If
    End With
  Next rngZelle
End Sub

Gruß, Uwe

[elbth409]

Vielen Dank, funktioniert! Genau danach hatte ich gesucht

[RPP63]

Bitte nur als ergänzenden Hinweis sehen:
Excel ist keine Textverarbeitung!
Der Workaround geht so lange zum Brunnen, bis er bricht.
Heißt:
In überschaubar kleinen Tabellen mag das gut gehen.
Aber beschwere Dich nicht, wenn Excel irgendwann unkontrolliert abschmiert.

Gruß Ralf