Hi Stefan.
Das sind nicht wirklich Formeln - man könnte das aber mit Autoformatierung lösen (und da spielen Formeln dann eine Rolle).
Jedoch zurück zu VBA.
Da du Zeilenweise arbeiten willst, nimm einfach eine Zählschleife...
(hier Zeile 3 bis 13)
Dim i As Long 'Zeilen-Index
Dim n As Long 'Anzahl Zeilen
n = 10 'nur als Beispiel; Anzahl: 10 Zeilen
For i = 3 To 3 + n
If Cells(i, "F") = "ja" And (Cells(i, "G") = "erledigt" _
Or Cells(i, "G") = "nicht notwendig") _
Then
Cells(i, "H").Interior.Color = RGB(255, 255, 153)
End If
If Cells(i, "H") = "ja" Then
Cells(i, "H").ClearFormats
End If
'... usw.
Next
Beachte bitte hier auch die Klammersetzung in der ersten Bedingung. And hat eine höhere Priorität als Or. Probier es am besten mal mit und ohne Klammer um den Unterschied zu sehen und zu verstehen.
Wenn die Anzahl der Zeilen nicht immer die gleiche ist, kann man diese auch zur Laufzeit ermitteln (bzw. den Zeilen-Index der letzten Zeile). Dazu gibt es genügend Lesestoff im Internet zu finden - einfach danach goggln', bing'n ... was auch immer.
Grüße
|