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"