Herbers Excel-Forum - das Archiv

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
Excel-Beispiele zum Thema "Jede zweite Zeile in einem Bereich"
Zellinhalt in zweitem Blatt ermitteln Modul in einer zweiten Arbeitsmappe löschen
Nummer aus zweiter Datei abrufen Übernahme von Werten mit "x" in eine zweite Tabelle
Datensätze in zweitem Blatt anders anordnen Den vorhergehenden Zellwert in einer zweiten Zelle zeigen
Jede zweite Spalte drucken Durch DoppelKlick Spalte in zweites Arbeitsblatt kopieren
Wert in Tabellenblatt suchen und alle Fundwerte in zweite Tabelle In einem zweiten Tabellenblatt vorgegebene Zeilen beschriften