Duplizieren
02.05.2017 13:25:25
Paul
Hier mein Programm:
If Range("F40") Range("F40").Interior.ColorIndex = 4
ElseIf Range("F40") > 3 And Range("F40") Range("F40").Interior.ColorIndex = 6
ElseIf Range("F40") > 7 And Range("F40") Range("F40").Interior.ColorIndex = 45
ElseIf Range("F40") > 10 Then
Range("F40").Interior.ColorIndex = 3
End If
Es funktioniert alles genau wie ich es möchte, nur soll dieses Programm nicht nur in der Zelle F40 funktionieren, sondern in allen Zellen von F40 - L42.
Ich könnte natürlich jetzt den Code für jede Zelle neu schreiben, aber es muss doch auch eine bessere Lösung geben, oder?!
Vielen Dank für die Hilfe.
LG Paul