Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Makro jede 2. Zeile einfärben

Makro jede 2. Zeile einfärben
09.10.2013 14:19:07
Christian
Hallo,
ich bräuchte ein Makro das jede 2. Zeile grau einfärbt. Allerdings nur bis Spalte O und erst ab Zeile 3 und dann immer bis zur letzten Zeile mit Werten.
Wäre sehr Dankbar für einen Code.
Danke

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Makro jede 2. Zeile einfärben
09.10.2013 14:28:41
Bastian
Hallo Christian,
z. B. so:
Option Explicit
Sub ZeilenFaerben()
Dim lngLZeile As Long
Dim i As Integer
lngLZeile = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
For i = 3 To lngLZeile Step 2
Range(Cells(i, 1), Cells(i, 21)).Interior.ColorIndex = 15
Next i
End Sub

Gruß, Bastian

AW: Makro jede 2. Zeile einfärben
09.10.2013 15:02:56
Christian
Hallo Bastian,
das ist schon super. Allerdings habe ich das Problem das meine Tabelle immer mal anders sortiert wird. Kannst Du noch was einbauen damit vorher der gleiche Bereich weiß gefärbt wird (bzw. Farblos).
Vielen Dank

Anzeige
AW: Makro jede 2. Zeile einfärben
09.10.2013 15:06:57
Bastian
Hallo Christian,
dann noch eine Zeile dazu:
Option Explicit
Sub ZeilenFaerben()
Dim lngLZeile As Long
Dim i As Integer
lngLZeile = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
Range(Cells(3, 1), Cells(lngLZeile, 21)).Interior.ColorIndex = -4142
For i = 3 To lngLZeile Step 2
Range(Cells(i, 1), Cells(i, 21)).Interior.ColorIndex = 15
Next i
End Sub

Gruß, Bastian

AW: Makro jede 2. Zeile einfärben
09.10.2013 15:30:04
Christian
Danke Dir !

AW: Makro jede 2. Zeile einfärben
09.10.2013 14:46:50
Doris
Hallo Cristian,
so klappt es
Dim i As Integer
Dim j As Integer
Dim Zeilen As Integer
Zeilen = Cells(Rows.Count, "A").End(xlUp).Row    ' letzte Zeile in Spalte A mit Wert
For i = 1 To Zeilen
j = 2 * i + 1
Range("A" & j & ":O" & j).Interior.Color = 8421504
Next i

Gruß Doris

Anzeige
AW: Makro jede 2. Zeile einfärben
09.10.2013 14:53:07
Bastian
Hallo Doris,
damit markierst Du zu viele Zeilen (nicht nur bis zur letzten beschriebenen).
i ist bei Dir die letzte Zeile.
Du markierst dann aber bis j = 2 * i + 1
Gruß, Bastian

318 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige