Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
428to432
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
428to432
428to432
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

jede 2te Zeile mit Hintergrundfarbe

jede 2te Zeile mit Hintergrundfarbe
14.05.2004 13:06:51
reto
hi all,
ich brauche ein Makro, dass alle geraden Zeilen (oder einfach jede 2te Zeile) in einem bestimmten Bereich (z.B. Range("A8:P734")) mit einer Hintergrundfarbe bestückt. Damit ich eine Art Streifenmuster habe.
Kann mir da jemand weiterhelfen? thx
reto e.

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

Betreff
Datum
Anwender
Anzeige
AW: jede 2te Zeile mit Hintergrundfarbe
Uduuh
Hallo,
da hilft dir auch eine bedingte Formatierung weiter.
Formel ist =Rest(Zeile();2)=0 und Farbe festlegen.
Gruß aus'm Pott
Udo
http://www.excelerator.de
AW: jede 2te Zeile mit Hintergrundfarbe
14.05.2004 13:12:51
Matthias
Hallo Udo,
gute Idee, dann kommt das Muster auch nicht durcheinander, wenn nachträglich Zeilen eingefügt werden :-)
Gruß Matthias
AW: jede 2te Zeile mit Hintergrundfarbe
reto
besten Dank !!!
AW: jede 2te Zeile mit Hintergrundfarbe
14.05.2004 13:10:21
Matthias
Hallo Reto,
zum Beispiel:

Sub test()
Dim i As Long
Const LetzteSpaltezumFärben = 10
For i = 2 To 200 Step 2
Range(Cells(i, 1), Cells(i, LetzteSpaltezumFärben)).Interior.ColorIndex = 19
Next i
End Sub

Gruß Matthias
Anzeige
AW: jede 2te Zeile mit Hintergrundfarbe
Ingo
in diesem Beispiel wird jede 2. Reihe rot gefärbt:

Sub streifen()
Dim rng As Range
Dim reihe As Range
Set rng = ActiveSheet.Range("A8:P734")
For Each reihe In rng.Rows
If reihe.Row Mod 2 = 0 Then
With reihe
.Interior.ColorIndex = 3
End With
End If
Next reihe
End Sub

m f G
Ingo Christiansen

300 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige