Ich versuche eine bedingte Formatierung zu programmieren, für viele Tabellenblätter mit identischem Aufbau. Dabei soll die Zelle C2 als Grenzwert für den Bereich ab D2 gelten und bei Überschreitungen ein farbiger Hintergrund erscheint. Das habe ich für eine Zeile geschafft (Modul1).
Nun ist die Tabelle größer und ich möchte C3 als Grenzwert für D3 bis Ende Zeile 3 nehmen, und C4 für D4 bis Ende Zeile4 usw.
Ich habe versucht eine Schleife zu bauen schaffe es aber nicht den Wert neben der aktiven Zelle als Grenzwert zu nehmen (siehe Modul2). Danke für Eure Hilfe
Holger
Die Datei https://www.herber.de/bbs/user/29794.xls
Sub bedingteFormatierung()
Dim Zelle As Range
Dim Bereich As Range
Dim j As Integer
j = Range("C2").Value
Sheets("Tabelle1").Activate
Set Bereich = Range("D2:Z2")
For Each Zelle In Bereich
If Zelle.Value > j Then Zelle.Interior.ColorIndex = 3 _
Else: Zelle.Interior.ColorIndex = xlColorIndexNone
Next Zelle
End Sub