AW: Füülfarbe abhängig vom Zellinhalt?
26.03.2017 13:29:17
Matthias
Hallo! Der Code unten sollte das eigentlich machen. Bitte mal probieren. VG
Sub farbe_wechseln()
Dim ende As Long
Dim farbe1 As Long
Dim farbe2 As Long
Dim zeile As Long
Dim aktfarbe As Long
Application.ScreenUpdating = False
ende = ActiveSheet.Cells(ActiveSheet.Rows.Count, 2).End(xlUp).Row
farbe1 = 6 'gelb
farbe2 = 43 'grün
aktfarbe = farbe1
If ActiveSheet.Cells(2, 2) "" Then ActiveSheet.Range(ActiveSheet.Cells(2, 1), _
ActiveSheet.Cells(2, 8)).Interior.ColorIndex = aktfarbe
For zeile = 3 To ende
If ActiveSheet.Cells(zeile - 1, 2) ActiveSheet.Cells(zeile, 2) Then
If aktfarbe = farbe1 Then
ActiveSheet.Range(ActiveSheet.Cells(zeile, 1), _
ActiveSheet.Cells(zeile, 8)).Interior.ColorIndex = farbe2
aktfarbe = farbe2
Else
ActiveSheet.Range(ActiveSheet.Cells(zeile, 1), _
ActiveSheet.Cells(zeile, 8)).Interior.ColorIndex = farbe1
aktfarbe = farbe1
End If
Else
ActiveSheet.Range(ActiveSheet.Cells(zeile, 1), _
ActiveSheet.Cells(zeile, 8)).Interior.ColorIndex = aktfarbe
End If
Next
Application.ScreenUpdating = True
End Sub