VBA Zählen wenn grün

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Zaehler_Hintergrund As Integer, Zelle_Hintergrund As Range
Dim rngZAEHLER As Range
Dim iColumn As Long
For iColumn = 6 To 151 Step 2
Set rngZAEHLER = Cells(1, iColumn).Resize(163)
Zaehler_Hintergrund = 0
For Each Zelle_Hintergrund In rngZAEHLER
If Zelle_Hintergrund.Interior.ColorIndex = 4 Then
Zaehler_Hintergrund = Zaehler_Hintergrund + 1
End If
Next
Cells(rngZAEHLER.Row + rngZAEHLER.Rows.Count + 1, iColumn) = Zaehler_Hintergrund
Next
End Sub
Private Sub CommandButton1_Click()
Application.VBE.MainWindow.Visible = True
End Sub