AW: wenn das dann die schriftfarbe ändern
09.10.2014 13:45:25
Adis
Hallo
wenn es keine Formel sein soll geht die Farb Auswertung nur per Makro. Anbei 2 Beispiele.
Der Unterschied liegt in Einzel Auswertung oder varrangig und ausschliessend auswerten,
wenn in dem Text 2 oder 3 Buchstaben vorkommen. z.B. T, S, N gemeinsam in einer Zelle.
Dann macht sich der Unterschied beim markieren bemerkbar. Welcher Buchstabe hat Vorrang?
Aus der Aufgabenstellung war auch nicht ersichtlich ob es immer Grossbuchstaben sind?
Ob sie mitten im Text vorkommen, oder am Anfang stehen? Das kann man berücksichtigen.
Mein Vorschlag ist somit eine Standard Lösung wie es grundsaetzlich machbar ist.
Das Ergebnis sollte ja die Zellen in Spalte "J" markieren, oder ?
Sub Schriftfarbe_aendern_Standard()
Dim i as Variant
For Each i In Columns("T")
'Farbeaenderung mit Einzel Auswertung
If InStr(i, "F") Then Cells(i.Row, "J").Font.ColorIndex = 1
If InStr(i, "S") Then Cells(i.Row, "J").Font.ColorIndex = 5
If InStr(i, "N") Then Cells(i.Row, "J").Font.ColorIndex = 3
'die letzte Auswertung überschreibt vorherige Aenderungen !!
Next i
End Sub
Sub Schriftfarbe_vorrangig_aendern()
Dim i as Variant
For Each i In Columns("T")
'Farb Auswertung im Ausschluss Verfahren (vorrangig)
If InStr(i, "N") Then
Cells(i.Row, "J").Font.ColorIndex = 3
ElseIf InStr(i, "S") Then
Cells(i.Row, "J").Font.ColorIndex = 5
ElseIf InStr(i, "F") Then
Cells(i.Row, "J").Font.ColorIndex = 1
End If
Next i
End Sub
Gruss Adis