Knifflig VBA? Platzhalter
29.11.2003 20:41:18
Franz W.
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