Guten Abend Fachleute,

Vielleicht ist's für Euch ja nur eine Kleinigkeit, ich scheiter auf jeden Fall:


Ich möchte die Schrift in allen Zellen mit einen "!" rot färben:

If Cells(t + 1, m) Like "*!*" Then
Cells(t + 1, m).Font.ColorIndex = 3
End If

Und das klappt auch.


Dann möchte ich alle Zellen mit einem "?" orange färben:

If Cells(t + 1, m) Like "*?*" Then
Cells(t + 1, m).Font.ColorIndex = 45
End If

UND DAS KLAPPT NICHT! Offenbar weil das "?" als Platzhalterzeichen erkannt wird, wird jetzt die Schrift IN ALLEN ZELLEN ORANGE !! Die Zellen ohne "!" oder "?", die eigentlich schwarz sein sollten. Die Zellen mit "!", die eigentlich rot sein sollten. ......

Das Fragezeichen in "" zu setzen ergibt einen Syntaxfehler, geht also auch nicht.

Gibt es dafür eine LÖsung?

Für Eure Hilfe bedanke ich mich schon mal im Voraus

Grüße
Franz