Hallo zusammen,

bei einer Änderung der Hintergrundfarbe im Zellenbereich soll ein VBA-Code ausgeführt werden. Im dem Code sollen die Farben in einer Spalte gezählt werden.

Wenn ich die Hintergrundfarbe über den "Farbtopf" ändere spring Excel nicht zu dem VBA-Code, aber wenn ich den "Pinsel" (Format übertragen) benutze springt Excel zum VBA-Code und zählt entsprechend die Farben in der Spalte.

Für einen Tipp was ich falsch mache wäre ich sehr dankbar.

Private Sub Worksheet_Change(ByVal Target As Range)
    Grau = 0
    Gelb = 0
    Orange = 0
    If Not Intersect(Target, Range("B2:K17")) Is Nothing Then
        For Spalte = 2 To 11
            For Zeile = 2 To 17
                Farbe = Cells(Zeile, Spalte).Interior.Color
                If Farbe = 10921638 Then
                    Grau = Grau + 1
                End If
                If Farbe = 65535 Then
                    Gelb = Gelb + 1
                End If
                If Farbe = 49407 Then
                    Orange = Orange + 1
                End If
            Next Zeile
            Cells(21, Spalte).Value = Grau
            Cells(22, Spalte).Value = Gelb
            Cells(23, Spalte).Value = Orange
            Grau = 0
            Gelb = 0
            Orange = 0
        Next Spalte
    End If
End Sub