Zeilen färben mit Ausnahme
31.10.2020 14:12:14
Mani
ich bräuchte nochmal eure Hilfe.
Mit folgendem Code färbe ich meinen Zeilen:
Sub ZellMuster()
Dim Zeilenzahl As Integer
Dim i As Integer
Dim x As Boolean
Dim farbe1 As Boolean
Dim farbe2 As Boolean
Zeilenzahl = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
farbe1 = True
farbe2 = False
For i = 7 To Zeilenzahl
x = False
If Range("B" & i) Range("B" & i - 1) Then x = True
If x = True Then
If farbe1 = True Then
farbe1 = False
farbe2 = True
Else
farbe1 = True
farbe2 = False
End If
End If
If farbe1 = True Then Rows(i).Interior.ColorIndex = 15
If farbe2 = True Then Rows(i).Interior.ColorIndex = 2
Next i
End Sub
Hierbei habe ich noch zwei Probleme.
Problem 1:
Wie kann ich den Code umschreiben das ich beim Färben einzelne Spalten auslassen kann?
Problem 2:
wenn ich irgendeine Zelle anders farblich markiert habe wird diese natürlich überfärbt.
Gibt es Möglichkeiten Zellen zu prüfen und wenn diese eine andere Farbe als die beiden im Code haben diese auszulassen?
Das überschreitet leider meine Fähigkeiten
Vielen Dank und viele Grüße
der Mani