jede zweite Zeile markieren

[tom]

Hallo

Weiss jemand, wie man in einer längeren Tabelle
automatisch jede zweite Zeile markieren kann, um diese mit
einer Farbe zu hinterlegen?

Vorab schon mal herzlichen Dank.
tom

[Hajo]

Hallo Tom

Jede 2. Zeile andere Farbe ?
Den Bereich auswählen, anschließend

FORMAT

BEDINGTE FORMATIERUNG

Bedingung1 = Formel ist

=REST(ZEILE();2)=1 (jede ungerade Zeile wird grau)

oder

=REST(ZEILE();2)=0 (jede gerade Zeile wird grau)

anschließend nur noch das FORMAT bestimmen.

mit =WENN(A1<>"";REST(ZEILE();2)=1;"") werden nur ausgefüllte Zellen
markiert

und mit $A1 nur Zeilen wo Spalte A ausgefüllt ist



Gruß Hajo



"tom" <***@drehpunkt.ch> schrieb im Newsbeitrag news:116101c3828c$7e773600$***@phx.gbl...
Hallo

Weiss jemand, wie man in einer längeren Tabelle
automatisch jede zweite Zeile markieren kann, um diese mit
einer Farbe zu hinterlegen?

Vorab schon mal herzlichen Dank.
tom

[tom]

Herzlichen Dank. Hat auf Anhieb geklappt!
tom

-----Originalnachricht-----
Hallo Tom
Jede 2. Zeile andere Farbe ?
Den Bereich auswählen, anschließend
FORMAT
BEDINGTE FORMATIERUNG
Bedingung1 = Formel ist
=REST(ZEILE();2)=1 (jede ungerade Zeile wird grau)
oder
=REST(ZEILE();2)=0 (jede gerade Zeile wird grau)
anschließend nur noch das FORMAT bestimmen.
mit =WENN(A1<>"";REST(ZEILE();2)=1;"") werden nur

ausgefüllte Zellen

markiert
und mit $A1 nur Zeilen wo Spalte A ausgefüllt ist
Gruß Hajo
Hallo
Weiss jemand, wie man in einer längeren Tabelle
automatisch jede zweite Zeile markieren kann, um diese mit
einer Farbe zu hinterlegen?
Vorab schon mal herzlichen Dank.
tom
.

[Klaus Sperlich]

oder so:
Sub JedeZweiteZeileGrau_279()
Dim x%
Dim i%

Cells.Interior.ColorIndex = xlNone
x = ActiveSheet.UsedRange.Rows.Count
For i = 1 To x Step 2
Rows(i).Interior.ColorIndex = 15
Next i

End Sub

Klaus