Ich habe folgendes Problem.
Und zwar will ich ein belibig großes Excel nach eckigen und spitzen Klammern durchsuchen lassen,
die inhalte der eckigen klammer sollen schwarz und die der spitzen Klammer grün gefärbt werden.
Habe folgenden Code dafür probiert bei dem aber leider die Fehlermeldung:
Fehler beim Kompilieren
Sub oder Prozedur nicht definiert kommt.
Sub FmeaFarbe()
' In Zellinhalt nach [] und suchen
' Dazwischen liegende Zeichen schwarz bzw. grün färben
Dim iPos As Integer, iLen As Integer, aCell As Object
For Each aCell In Selection
If TextEnthalten(aCell.Value, "[", "]", iPos, iLen) = True Then
' Textteil schwarz färben
With aCell.Characters(Start:=iPos, Length:=iLen).Font
.ColorIndex = 0
End With
End If
If TextEnthalten(aCell.Value, "", iPos, iLen) = True Then
' Textteil grün färben
With aCell.Characters(Start:=iPos, Length:=iLen).Font
.ColorIndex = 10
End With
End If
Next aCell
End Sub
Währe schön wenn mir jemand weiterhelfen kann.
Danke.