abhängig vom "true/false"-Status zweier benachbarter Zellen (in den Spalten C und G), soll die Zelle in Spalte F eine bestimmte Farbe erhalten. Das "Einfärben" der Zelle ist klar, das bekomme ich durch die folgende Sub auch gut hin:
Sub Zellenstatus()
Range("F5").Select
If Range("C5").Value = True Then
If Range("G5").Value = True Then
Range("F5").Interior.ColorIndex = 43
ElseIf Range("G5").Value = False Then
Range("F5").Interior.ColorIndex = 6
End If
Else: Range("F5").Interior.ColorIndex = 3
End If
End Sub
Allerdings möchte ich dieses Verfahren wiederholt, d.h. von Zeile 5 bis Zeile 45 anwenden, ohne die Sub für jede Zeile (Zelle) neu zu definieren.
Eine irgendwie geartete "for-next-Schleife" scheint mir da in die richtige Richtung zu weisen - ich hab allerdings keine Ahnung, wie ich das programmieren könnte.
Zusätzlich liegt eine gleich geartete Struktur in weiter rechts liegenden Spalten vor (d.h. die Referenzzellen mit den "Wahrheitswerten" haben die gleichen relativen Abstände von der "Statuszelle"). Kann man in diesem Fall einen array definieren (z.B. für die Statusspalte) und durch relative Bezüge das Ganze auch "horizontal" vereinfachen?
Danke im Voraus für die Hilfe
Bein