Live-Forum - Die aktuellen Beiträge
Datum
Titel
29.03.2024 13:14:12
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
572to576
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
572to576
572to576
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Jede zweite Zeile in einem Bereich

Jede zweite Zeile in einem Bereich
23.02.2005 10:40:26
Klaus
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

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Jede zweite Zeile in einem Bereich
Oliver
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

AW: Jede zweite Zeile in einem Bereich
Klaus
Hallo Oliver
Funktioniert ganz gut, aber nur für Spalte "C". ich wollte aber den Bereich C5:R1000
Gruss Klaus
AW: Jede zweite Zeile in einem Bereich
u_
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ß
AW: Jede zweite Zeile in einem Bereich
RainerK
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
Anzeige
AW: Jede zweite Zeile in einem Bereich
23.02.2005 11:14:10
Klaus
Hallo nochmals
Vielen Dank für Eure Hilfe.........Ihr seid suuuuuper
Gruss Klaus
Danke für die Rückmeldung o. T.
RainerK
AW: Jede zweite Zeile in einem Bereich
Werner
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

Anzeige

313 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige