Met VBA gekleurde cellen tellen lukt niet

[bascas]

Hallo, met behulp van het forum ben ik al een eind gekomen, maar het lukt nog niet echt. Ik wil graag dat de waarde van de rood gekleurde cellen wordt opgeteld en de uitkomst moet op een ander tabblad als waar de gegevens staan komen. Zie voorbeeld.
groeten Bas

 

[Cobbe]

Je kan niet via voorwaardelijke opmaak gekleurde cellen tellen in VBA, tenminste niet als via kleur wil tellen.
Je zal via de voorwaarde moeten tellen of kleuren met een harde kleur.

 

[HSV]

Sub hsv()
Dim cl As Range, telop As Double
With Sheets("boekingslijst")
  For Each cl In .Range("D3:D" & .Cells(Rows.Count, 4).End(xlUp).Row)
    If Not cl Like "##-##-####" Then
      telop = telop + cl.Offset(, 8).Value
    End If
  Next cl
 Sheets("periode overzicht").Range("C4") = telop
End With
End Sub

Misschien is dit beter.

Sub hsv()
Dim cl As Range, telop As Double
With Sheets("boekingslijst")
  For Each cl In .Range("B3:B" & .Cells(Rows.Count, 2).End(xlUp).Row)
    If IsEmpty(cl.Offset(, 2)) Then
      telop = telop + cl.Offset(, 10).Value
    End If
  Next cl
 Sheets("periode overzicht").Range("C4") = telop
End With
End Sub

 

[bascas]

Harry, helemaal top. het werkt!http://www.helpmij.nl/forum/images/smilies/biggrin.gif