Jede zweite Zeile in einem Bereich

Bild

Betrifft: Jede zweite Zeile in einem Bereich
von: Klaus
Geschrieben am: 23.02.2005 10:40:26
Hallo Zusammen
Ich möchte in meiner Tabelle im Bereich C5:R1000 Abwechselt die Zeilen mit der Farbe Hellblau (Code 35) und Grau (Code 15) hinterlegen.
Wie kann man das machen??
Gruss Klaus

Bild

Betrifft: AW: Jede zweite Zeile in einem Bereich
von: Oliver
Geschrieben am: 23.02.2005 10:48:37
Hi,
probiers mal damit:

Sub Zellen_färben()
for i= 5 to 1000
if i mod 2 <> 0 then
activesheet.cells(i,3).Interior.ColorIndex = 35
else 
activesheet.cells(i,3).Interior.ColorIndex = 15
end if
next i
End Sub

Bild

Betrifft: AW: Jede zweite Zeile in einem Bereich
von: Klaus
Geschrieben am: 23.02.2005 10:56:40
Hallo Oliver
Funktioniert ganz gut, aber nur für Spalte "C". ich wollte aber den Bereich C5:R1000
Gruss Klaus
Bild

Betrifft: AW: Jede zweite Zeile in einem Bereich
von: u_
Geschrieben am: 23.02.2005 10:48:50
Hallo,
Bereich markieren. Format-Bedingte Formatierung
1.Formel ist: =Rest(Zeile();2)=0 und Farbe wählen
2.Formel ist: =Rest(Zeile();2)=1 und Farbe wählen
Gruß
Bild

Betrifft: AW: Jede zweite Zeile in einem Bereich
von: RainerK
Geschrieben am: 23.02.2005 11:04:57
Hi,

Sub farbig()
Dim i As Integer, a As Integer
For i = 5 To 999 Step 2
Range(Cells(i, 3), Cells(i, 18)).Interior.ColorIndex = 35
Next i
For a = 6 To 1000 Step 2
Range(Cells(a, 3), Cells(a, 18)).Interior.ColorIndex = 15
Next a
End Sub

MfG Rainer
Bild

Betrifft: AW: Jede zweite Zeile in einem Bereich
von: Klaus
Geschrieben am: 23.02.2005 11:14:10
Hallo nochmals
Vielen Dank für Eure Hilfe.........Ihr seid suuuuuper
Gruss Klaus
Bild

Betrifft: Danke für die Rückmeldung o. T.
von: RainerK
Geschrieben am: 23.02.2005 11:16:34

Bild

Betrifft: AW: Jede zweite Zeile in einem Bereich
von: Werner
Geschrieben am: 23.02.2005 11:14:39
Hallo Klaus,
Makiere die Zelle C5
Wähle im Menü Format/Bedingte Formatierung...
Es erscheint ein Dialog
Als bedingung wählst Du: Formel ist
In das daneben stehede Feld trägst Du folgendes ein:
=REST(ZEILE(C5);2)
Klicke im gleichen Dialog auf Format
Wähle im Register: Muster eine Farbe aus.
Schließe den Dialog mit OK.
Klicke auf den Pinsel (Format Übertragen)
Makiere mit gedrückter linken Maustaste den Bereich C5:R1000.
Linke Maustaste los lassen. Fertig.
Gruß
Werner

 Bild

Beiträge aus den Excel-Beispielen zum Thema "Jede zweite Zeile in einem Bereich"