Syntax
guffels
ich habe folgende Prozedur geschrieben:
Sub Farbe()
Dim C As Object
For Each C In Worksheets("Übersicht").Range("D13:GA122").Cells
If C.Value = "RS" Then C.Interior.ColorIndex = 8
If C.Value = "RA" Then C.Interior.ColorIndex = 5
If C.Value = "LZ" Then C.Interior.ColorIndex = 10
If C.Value = "GF" Then C.Interior.ColorIndex = 3
If C.Value = "ZF" Then C.Interior.ColorIndex = 6
Next
For Each C In Worksheets("Übersicht").Range("D13:GA122").Cells
If C.Value = "RS" Then C.Font.ColorIndex = 8
If C.Value = "RA" Then C.Font.ColorIndex = 5
If C.Value = "LZ" Then C.Font.ColorIndex = 10
If C.Value = "GF" Then C.Font.ColorIndex = 3
If C.Value = "ZF" Then C.Font.ColorIndex = 6
Next
End Sub
Sie funktioniert auch soweit. Ich möchte aber gerne den zweiten Teil (Schriftfarbe) beim ersten Durchlauf der Zellen (Hintergundfarbe) auch mit einbinden, damit das Ganze schneller abläuft. Meine Versuche scheiterten aber bisher. Wenn ich nach "Then" eine neue Zeile einfüge, dann kommt die Fehlermeldung "Next ohne For".Warum?
Vielen Dank im Voraus!
Gruß Michael