Jede 2. Zeile einfärben
17.01.2009 19:20:00
Frank
Mit folgendem Code
Sub Zeilen_formatieren() Sheets("DATEN").Activate Range("A14:K65536").Select For Zeile = 1 To Selection.Rows.Count If Zeile Mod 2 > 0 Then Selection.Rows(Zeile).Interior.ColorIndex = 15 End If Next Zeile End Sub
kann ich jede zweite Zeile im zuvor festgelegten Bereich grau einfärben lassen. Nun wäre es aber schau wenn in den Zellen A14 und ff. Text steht, dass dann jede zweite Zeile grau eingefärbt wird! Weiß jemand Rat!!! Danke!!!
Gruß Frank H.