Zellen Muster Bereich
Maris
wie kann ich für folgenden Code einen Zellbereich für die Einfärbung der Zellen festlegen. Im Moment werden die ganzen Zeilen eingefärbt, es soll jedoch nur die Zeilen im Spaltenbereich von "B:BN" eingefärbt werden!
Sub ZellMuster()
Dim Zeilenzahl As Integer
Dim i As Integer
Dim x As Boolean
Dim r As Range
Dim farbe1 As Boolean
Dim farbe2 As Boolean
Zeilenzahl = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
farbe1 = True
farbe2 = False
For i = 2 To Zeilenzahl
x = False
If Range("H" & i) Range("H" & 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 = 34
If farbe2 = True Then Rows(i).Interior.ColorIndex = 0
Next i
End Sub
Gruß,
Maris