Dann solltest du herausfinden warum es (was auch immer) nicht funktioniert
Das kann man z.B. über das Direktfenster in VBA tun.
Du nimmst dir also ein Tabellenblatt vor, von dem du weißt welche Zellen es erkennen müsste und läßt das Makro drüber laufen. Anschließend schaust du bei der jeweiligen Adresse ob sie erkannt wurde (zeigt Wahr in der jeweiligen Zeile an). Wenn nicht, dann siehst du auch gleich in der Zeile warum das nicht der Fall ist.
Option Explicit
Private Sub CommandButton100_Click()
Dim colIdx As Long
Dim n As Long
With Worksheets("Januar")
Debug.Print "ZELLE", "IST", "SOLL", "N+1"
For colIdx = .Columns("H").column To .Columns("AL").column
With .Cells(23, colIdx)
Debug.Print .Address(0, 0), "&H" & Hex$(.Interior.Color), "&H" & Hex$(RGB(118, 147, 60)), .Interior.Color = RGB(118, 147, 60)
End With
If .Cells(23, colIdx).Interior.Color = RGB(118, 147, 60) Then
n = n + 1
End If
Next
End With
Worksheets("Urlaub").Range("j23").Value = n
End Sub
|