Hallo,
Ik heb een bestand met verschillende getallen en ik wil alleen de lichtgroene cellen opgeteld hebben.
Ik heb wel iets gelezen over somcelkleur en vba maar het wil me echt niet lukken als ik de code erin plak.
Ik ga als volgt te werk.
Ik open vba en daarna plak ik dit erin
Daarna klik ik op uitvoeren en maak ik een macro aan, maar dan krijg ik de melding er wordt een end sub verwacht?
Ik hoop dat jullie mij snel verder kunnen helpen.
Ik heb een bestand met verschillende getallen en ik wil alleen de lichtgroene cellen opgeteld hebben.
Ik heb wel iets gelezen over somcelkleur en vba maar het wil me echt niet lukken als ik de code erin plak.
Ik ga als volgt te werk.
Ik open vba en daarna plak ik dit erin
Code:
Public Function SOMKLEUR(Bereik As Range, CelKleur As Range, Optional Tellen As Integer) As Variant
Dim i As Long
Dim x As Long
For i = Bereik.Row To Bereik.Rows.Count + Bereik.Row - 1
If Cells(i, CelKleur.Column).Interior.Color = CelKleur.Interior.Color Then
Select Case Tellen
Case 0
'Het bereik optellen
SOMKLEUR = SOMKLEUR + Cells(i, Bereik.Column)
Case 1
'Het aantal cellen met de kleur tellen
x = x + 1
SOMKLEUR = x
End Select
End If
Next i
End Function
Daarna klik ik op uitvoeren en maak ik een macro aan, maar dan krijg ik de melding er wordt een end sub verwacht?
Ik hoop dat jullie mij snel verder kunnen helpen.