gekleurde cellen tellen

[hansie1962]

hansie1962,

Zet dit achter het tabblad.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  Calculate
End Sub

Wanneer je nu een cel inkleurt en deze verlaat werkt het wel.

Waar en wat bedoel je achter het tabblad?
Programmacode weergeven en de code plakken?
Waar moet ik de code plakken?

Sorry ik ben echt een kluns met exel hoor, maar waardeer jullie hulp enorm

 

[Hoornvan]

hansie1962,

Als hij het nog niet doet, zet dan de rode regel code in de functie.
Nu moet hij het doen, anders weet ik het ook niet meer.

Function TelKleur(rColor As Range, rSumRange As Range)
'Formule = TELKLEUR(cel met de kleur; optelbereik)
[COLOR="Red"]Application.Volatile[/COLOR]
Dim rCell As Range
Dim iCol As Integer
Dim vResult
iCol = rColor.Interior.ColorIndex
   For Each rCell In rSumRange
    If rCell.Interior.ColorIndex = iCol Then
         vResult = vResult + 1
    End If
   Next rCell
TelKleur = vResult
End Function

Hier is de file.
Achter het blad is, met rechts op het tabblad klikken en kiezen voor Programma code weegeven.

 

[hansie1962]

hansie1962,

Als hij het nog niet doet, zet dan de rode regel code in de functie.
Nu moet hij het doen, anders weet ik het ook niet meer.

Function TelKleur(rColor As Range, rSumRange As Range)
'Formule = TELKLEUR(cel met de kleur; optelbereik)
[COLOR="Red"]Application.Volatile[/COLOR]
Dim rCell As Range
Dim iCol As Integer
Dim vResult
iCol = rColor.Interior.ColorIndex
   For Each rCell In rSumRange
    If rCell.Interior.ColorIndex = iCol Then
         vResult = vResult + 1
    End If
   Next rCell
TelKleur = vResult
End Function

Hier is de file.
Achter het blad is, met rechts op het tabblad klikken en kiezen voor Programma code weegeven.

Wim en Danny...
Heel erg bedankt.. het werkt perfect!!
Nogmaals erg bedankt.. ben er heel blij mee.

Groeten Hans