Bedingte Formatierung, relative Zeilenbezüge
17.11.2007 22:14:01
Peter
Ich habe eine Tabelle, in der Spaltenbereiche der Spalten I,J,K,L und N,O,P,Q mit jeweils gleichviel Zeilen (im Moment Zeile 7 bis 707) mit dem Namen "Buchungen" benannt wurden.
Mit anderen Worten: Der Name "Buchungen" bezieht sich auf =Details!$I$7:$L$707;Import!$N$7:$Q$707
Nun habe ich eine bedingte Formatierung definiert. Eine Zeile soll farbig hinterlegt werden, wenn in den obgenannten Spalten ein Eintrag vorhanden ist und gleichzeitig in Spalte D der gleichen Zeile kein Eintrag besteht.
Mit Hilfe des Makrorecorders und etwas umschreiben habe ich folgenden Code erstellt.
Dieser Code stimmt, solange der Bereich "Buchungen" ab Zeile 7 beginnt. Dies kann jedoch mal ändern. Deshalb möchte ich den Code so verändern, dass diese bezüglich Zeilen vollkommen relativ ist, das heisst, in der Zeile
"=UND(SUMME($I7:$L7;$N7:$Q7)0;$D7=0)"
die Ziffer 7 nicht mehr vorkommt.
Kann mir jemand sagen, wie das geht - ich habe im Moment keine Idee.
Vielen Dank, Peter
Sub BedingtFormatieren()
Range("Buchungen").FormatConditions.Delete
Range("Buchungen").FormatConditions.Add Type:=xlExpression, Formula1:= _
"=UND(SUMME($I7:$L7;$N7:$Q7)0;$D7=0)"
Selection.FormatConditions(1).Interior.ColorIndex = 22
ActiveCell.FormulaR1C1 = "1"
End Sub