Hab ein Problem mit einem Makro. Und zwar gibt es eine Fehlermeldung: Fehler beim Kompelieren
(
Sub oder Funktion nicht definiert.)
Hier der Code.
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äre super wenn mir jemand weiterhelfen könnte.
LG Hans.