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