Startseite

Zeilen färben 2

Hier noch eine zweite Möglichkeit Zeilen zu färben. Dieses Makro färbt abhängig von Zellinhalten in einer Spalte die dazugehörige Zeile(n) um. Die Farbänderung erfolgt immer dann, wenn sich der Zellinhalt in der nächsten Zeile geändert hat.
Das Ergebnis:
Das Makro zum Kopieren:
Sub färben2()
' färbt Tabellenzeilen abhängig vom Inhalt einer Spalte ein
' Klaus-Dieter Oppermann
z = 2                                       ' Startzeile für Schleife(hier 2)
m = 0                                       ' Farbe für 1. Gruppe (0 = keine, 1 = grau)
Do While Cells(z, 1) <> ""                  ' Bedingung für Schleife (laufe solange Zelle
                                            ' einen Inhalt hat)
    If Cells(z, 1) <> Cells(z - 1, 1) Then  ' Wenn Zelle <> vorherige ...
        m = m + 1                           ' ... Schleifenzähler um 1 erhöhen
        ' m gerade Zahl?
        mark = Int(m / 2)                   ' ... Variable durch 2 teilen ...
        mmark = mark * 2                    ' ... und mit zwei multiplizieren
    End If                                  ' Ende Bedingung
' Zellen färben, wenn m gerade Zahl
If mmark = m Then                           ' wenn Variable = Schleifenzähler ...
    Range("A" & z, "F" & z).Select          ' ... Zellen selektieren
    With Selection.Interior                 ' ... Hintergrund füllen
        .ColorIndex = 15                    ' ... Füllfarbe grau
        .Pattern = xlSolid                  ' ... durchgehende Fläche
    End With                                ' Ende färben
End If                                      ' Ende färben
z = z + 1                                   ' Schleifenzähler
Loop                                        ' Wendepunkt für Schleife
End Sub                                     ' Ende des Makros