Clever-Excel-Forum

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 Worriedsmiley

Ich habe aber auch keine Lust, in jede Zelle reinzuklicken, den entsprechenden Teil zu markieren und die Schriftfarbe zu ändern...

Vielen Dank vorab!

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

Vielen Dank, funktioniert! Genau danach hatte ich gesucht Smile

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

elbth409

Kuwer

elbth409

RPP63