Ich versuche verzweifelt die richtige Zeile farbig zu markieren. Mein Wunschergebnis in diesem Fall ist die Zeile i = 31; genauer Spalte E bis Spalte N. Dummerweise wird immer die Zeile 501 (richtig ist schon E-N) farbig markiert. Kann mir bitte jemand sagen, was an meinem Code falsch ist?
Danke Torsten
If Druck_Rentas.CheckBox1.Value = True Then
For i = 4 To 500
If WS.Cells(i, 14).Value "" Then
WS.PageSetup.PrintArea = "$E$4:$N$" & i
End If
Next i
WS.range("N" & i).Interior.ColorIndex = 41
Neu_Seite_einrichten (seitenzahl)
WS.PrintOut
End If