Jede 2. Zeile Hintergrund ändern

Forumthread: Jede 2. Zeile Hintergrund ändern

Blum

Hallo zusammen
Habe da noch eine Frage.
In Excel kann man doch jede 2. Zeile anders darstellen, so dass das lesen von grossen Dateien einfacher wird.
z.B. 1. Zeile weiss, 2. Zeile hellgrün, 1. Zeile weiss, 3 wieder hellgrün usw.
Hemm weiss jemand noch wie das automatisiert geht?

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

AW: Jede 2. Zeile Hintergrund ändern

25.06.2009 17:40:07

ransi

HAllo
DAs kannst du z.B. mit der bed. Formatierung machen.
Denb gewünschten Bereich markieren und dann so:
Tabelle2

	A	B	C	D
1
2
3
4
5
6
7
8

Bedingte Formatierungen der Tabelle

Zelle	Nr.: / Bedingung	Format
A1	1. / Formel ist =REST(ZEILE();2)=0	Abc
A1	2. / Formel ist =REST(ZEILE();2)>0	Abc

Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4
ransi

AW: Jede 2. Zeile Hintergrund ändern

25.06.2009 17:40:37

jockel

hi unbekannte(r), das geht so - zusätzlich wenn das auch bei eingestelltem autofilter funzen soll:
jede 2. zeile

	A	B	C
1	Überschrift	Überschrift1	Überschrift2
2	Zeile1	Text1	Text 1
3	Zeile2	Text2	Text 1
4	Zeile3	Text3	Text 1
5	Zeile4	Text4	Text 1
6	Zeile5	Text5	Text 5
7	Zeile6	Text6	Text 5
8	Zeile7	Text7	Text 5
9	Zeile8	Text8	Text 5
10	Zeile9	Text9	Text 9
11	Zeile10	Text10	Text 9
12	Zeile11	Text11	Text 3
13	Zeile12	Text12	Text 3
14	Zeile13	Text13	Text 3
15	Zeile14	Text13	Text 1

Bedingte Formatierungen der Tabelle

Zelle	Nr.: / Bedingung	Format
A1	1. / Formel ist =UND($A1<>"";REST(TEILERGEBNIS(3;$A$1:$A1);2)=0)	Abc
B1	1. / Formel ist =UND($A1<>"";REST(TEILERGEBNIS(3;$A$1:$A1);2)=0)	Abc
C1	1. / Formel ist =UND($A1<>"";REST(TEILERGEBNIS(3;$A$1:$A1);2)=0)	Abc
A2	1. / Formel ist =UND($A2<>"";REST(TEILERGEBNIS(3;$A$1:$A2);2)=0)	Abc
B2	1. / Formel ist =UND($A2<>"";REST(TEILERGEBNIS(3;$A$1:$A2);2)=0)	Abc
C2	1. / Formel ist =UND($A2<>"";REST(TEILERGEBNIS(3;$A$1:$A2);2)=0)	Abc
A3	1. / Formel ist =UND($A3<>"";REST(TEILERGEBNIS(3;$A$1:$A3);2)=0)	Abc
B3	1. / Formel ist =UND($A3<>"";REST(TEILERGEBNIS(3;$A$1:$A3);2)=0)	Abc
C3	1. / Formel ist =UND($A3<>"";REST(TEILERGEBNIS(3;$A$1:$A3);2)=0)	Abc
A4	1. / Formel ist =UND($A4<>"";REST(TEILERGEBNIS(3;$A$1:$A4);2)=0)	Abc
B4	1. / Formel ist =UND($A4<>"";REST(TEILERGEBNIS(3;$A$1:$A4);2)=0)	Abc
C4	1. / Formel ist =UND($A4<>"";REST(TEILERGEBNIS(3;$A$1:$A4);2)=0)	Abc
A5	1. / Formel ist =UND($A5<>"";REST(TEILERGEBNIS(3;$A$1:$A5);2)=0)	Abc
B5	1. / Formel ist =UND($A5<>"";REST(TEILERGEBNIS(3;$A$1:$A5);2)=0)	Abc
C5	1. / Formel ist =UND($A5<>"";REST(TEILERGEBNIS(3;$A$1:$A5);2)=0)	Abc
A6	1. / Formel ist =UND($A6<>"";REST(TEILERGEBNIS(3;$A$1:$A6);2)=0)	Abc
B6	1. / Formel ist =UND($A6<>"";REST(TEILERGEBNIS(3;$A$1:$A6);2)=0)	Abc
C6	1. / Formel ist =UND($A6<>"";REST(TEILERGEBNIS(3;$A$1:$A6);2)=0)	Abc
A7	1. / Formel ist =UND($A7<>"";REST(TEILERGEBNIS(3;$A$1:$A7);2)=0)	Abc
B7	1. / Formel ist =UND($A7<>"";REST(TEILERGEBNIS(3;$A$1:$A7);2)=0)	Abc
C7	1. / Formel ist =UND($A7<>"";REST(TEILERGEBNIS(3;$A$1:$A7);2)=0)	Abc
A8	1. / Formel ist =UND($A8<>"";REST(TEILERGEBNIS(3;$A$1:$A8);2)=0)	Abc
B8	1. / Formel ist =UND($A8<>"";REST(TEILERGEBNIS(3;$A$1:$A8);2)=0)	Abc
C8	1. / Formel ist =UND($A8<>"";REST(TEILERGEBNIS(3;$A$1:$A8);2)=0)	Abc
A9	1. / Formel ist =UND($A9<>"";REST(TEILERGEBNIS(3;$A$1:$A9);2)=0)	Abc
B9	1. / Formel ist =UND($A9<>"";REST(TEILERGEBNIS(3;$A$1:$A9);2)=0)	Abc
C9	1. / Formel ist =UND($A9<>"";REST(TEILERGEBNIS(3;$A$1:$A9);2)=0)	Abc
A10	1. / Formel ist =UND($A10<>"";REST(TEILERGEBNIS(3;$A$1:$A10);2)=0)	Abc
B10	1. / Formel ist =UND($A10<>"";REST(TEILERGEBNIS(3;$A$1:$A10);2)=0)	Abc
C10	1. / Formel ist =UND($A10<>"";REST(TEILERGEBNIS(3;$A$1:$A10);2)=0)	Abc
A11	1. / Formel ist =UND($A11<>"";REST(TEILERGEBNIS(3;$A$1:$A11);2)=0)	Abc
B11	1. / Formel ist =UND($A11<>"";REST(TEILERGEBNIS(3;$A$1:$A11);2)=0)	Abc
C11	1. / Formel ist =UND($A11<>"";REST(TEILERGEBNIS(3;$A$1:$A11);2)=0)	Abc
A12	1. / Formel ist =UND($A12<>"";REST(TEILERGEBNIS(3;$A$1:$A12);2)=0)	Abc
B12	1. / Formel ist =UND($A12<>"";REST(TEILERGEBNIS(3;$A$1:$A12);2)=0)	Abc
C12	1. / Formel ist =UND($A12<>"";REST(TEILERGEBNIS(3;$A$1:$A12);2)=0)	Abc
A13	1. / Formel ist =UND($A13<>"";REST(TEILERGEBNIS(3;$A$1:$A13);2)=0)	Abc
B13	1. / Formel ist =UND($A13<>"";REST(TEILERGEBNIS(3;$A$1:$A13);2)=0)	Abc
C13	1. / Formel ist =UND($A13<>"";REST(TEILERGEBNIS(3;$A$1:$A13);2)=0)	Abc
A14	1. / Formel ist =UND($A14<>"";REST(TEILERGEBNIS(3;$A$1:$A14);2)=0)	Abc
B14	1. / Formel ist =UND($A14<>"";REST(TEILERGEBNIS(3;$A$1:$A14);2)=0)	Abc
C14	1. / Formel ist =UND($A14<>"";REST(TEILERGEBNIS(3;$A$1:$A14);2)=0)	Abc
A15	1. / Formel ist =UND($A15<>"";REST(TEILERGEBNIS(3;$A$1:$A15);2)=0)	Abc
B15	1. / Formel ist =UND($A15<>"";REST(TEILERGEBNIS(3;$A$1:$A15);2)=0)	Abc
C15	1. / Formel ist =UND($A15<>"";REST(TEILERGEBNIS(3;$A$1:$A15);2)=0)	Abc

Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4
jede 2. zeile

	A	B	C
1	Überschrift	Überschrift1	Überschrift2
12	Zeile11	Text11	Text 3
13	Zeile12	Text12	Text 3
14	Zeile13	Text13	Text 3

Bedingte Formatierungen der Tabelle

Zelle	Nr.: / Bedingung	Format
A1	1. / Formel ist =UND($A1<>"";REST(TEILERGEBNIS(3;$A$1:$A1);2)=0)	Abc
B1	1. / Formel ist =UND($A1<>"";REST(TEILERGEBNIS(3;$A$1:$A1);2)=0)	Abc
C1	1. / Formel ist =UND($A1<>"";REST(TEILERGEBNIS(3;$A$1:$A1);2)=0)	Abc
A12	1. / Formel ist =UND($A12<>"";REST(TEILERGEBNIS(3;$A$1:$A12);2)=0)	Abc
B12	1. / Formel ist =UND($A12<>"";REST(TEILERGEBNIS(3;$A$1:$A12);2)=0)	Abc
C12	1. / Formel ist =UND($A12<>"";REST(TEILERGEBNIS(3;$A$1:$A12);2)=0)	Abc
A13	1. / Formel ist =UND($A13<>"";REST(TEILERGEBNIS(3;$A$1:$A13);2)=0)	Abc
B13	1. / Formel ist =UND($A13<>"";REST(TEILERGEBNIS(3;$A$1:$A13);2)=0)	Abc
C13	1. / Formel ist =UND($A13<>"";REST(TEILERGEBNIS(3;$A$1:$A13);2)=0)	Abc
A14	1. / Formel ist =UND($A14<>"";REST(TEILERGEBNIS(3;$A$1:$A14);2)=0)	Abc
B14	1. / Formel ist =UND($A14<>"";REST(TEILERGEBNIS(3;$A$1:$A14);2)=0)	Abc
C14	1. / Formel ist =UND($A14<>"";REST(TEILERGEBNIS(3;$A$1:$A14);2)=0)	Abc

Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4

cu jörg
ein feedback wär ganz reizend

Format - Bedingte Formatierung

25.06.2009 17:46:07

NoNet

Hallo Blum,
Nehmen wir an, Deine Tabelle erstreckt sich von A1:F21, dann markiere diesen Bereich (am einfachsten per Strg * - also Strg und STERN-Taste !)
Wähle dann im Menü "Format - Bedingte Formatierung"
Gib als Bedingung1 folgendes ein :
Formel ist (nicht "Zellwert ist" !) : =REST(Zeile();2)=0 - Format - Muster : Grün - OK
Füge eine weitere Bedingung hinzu (Button "Hinzufügen") und gib dort folgendes ein :
Formel ist (nicht "Zellwert ist" !) : =REST(Zeile();2)=1 - Format - Muster : Gelb- OK
Drücke anschliessend Strg+L um diesen Bereich als "Liste" zu definieren (ab Excel 2003 !), so dass weitere Zeilen, die neu hinzugefügt werden, diese Formatierung automatisch übernehmen !
Eine Erweiterung dieser Formatierung, die die Zeilen auch in gefilterten Listen abwechselnd einfärbt :
Formel (Bedingung 1) : =REST(TEILERGEBNIS(3;$A$1:$A1);2)=0
Formel (Bedingung 2) : =REST(TEILERGEBNIS(3;$A$1:$A1);2)=1
In der gefilterten Liste müssen dann aber auch alle Zellen der Spalte A gefüllt sein (also: keine Leerzelle in Spalte A !!).
Gruß, NoNet

AW: Jede 2. Zeile Hintergrund ändern

25.06.2009 17:46:12

Blum

Hei Jockel das ging ja mega schnell.
Tja das funktioniert ja, nur habe ich die 3 Möglichkeiten der bedingten Formatierung bereits voll ausgeschöpft um Wochenenden und Feiertage anzuzeigen.
Gibt es auch ne andere Lösung?

AW: Jede 2. Zeile Hintergrund ändern

25.06.2009 18:05:06

hary

Hi Blum
versuch mal. Bereich und Farbe noch anpassen.
Sub Farbe() Dim zeile As Long Dim ZeilenNr As Long For zeile = 1 To 10 'Bereich noch anpassen ZeilenNr = ZeilenNr + 1 If ZeilenNr Mod 2 = 0 Then Rows(zeile).Interior.ColorIndex = 15 ' Farbe noch anpassen jetzt Grau End If Next End Sub

Gruss Hary

Beliebteste Forumthreads (12 Monate)

Jede 2. Zeile Hintergrund ändern

Forumthread: Jede 2. Zeile Hintergrund ändern

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Jede 2. Zeile Hintergrund ändern

Forumthread: Jede 2. Zeile Hintergrund ändern

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread