Opvulkleuren tellen

[Rens90]

Hallo,

Ik ben niet handig met Excel.
En moet voor mij werk een bedrijvenbestand maken en wil in dat bestand bedrijven een bepaalde kleur geven en wil ik onder in overzicht maken van hoeveel er van elke kleur zijn. Kan iemand mij hier mee helpen?

Alvastbedankt,

 

[RaymondC]

Heb deze code ooit eens vanuit een forum gekopieerd (weet niet meer wie de auteur is):

Function TelAchtergrondkleur(Bereik As range, Reference As range)
* * Dim Cl As range
* * Dim ClrCount As Long
* * For Each Cl In Bereik
* * * * If Cl.Interior.ColorIndex = Reference.Interior.ColorIndex Then
* * * * ClrCount = ClrCount + 1
* * * * End If
* * Next
* * TelAchtergrondkleur = ClrCount
End Function

 

[Rens90]

Ik ben niet echt handig met Excel dus zou ook echt niet weten hoe ik die code moet invoeren?
Moet ik op een cel gaan staan en dan = en heel die code invoeren of?

 

[RaymondC]

upload eens een voorbeeld ontdaan van gevoelige informatie

 

[Warme bakkertje]

Een voorbeeldje met 2 mogelijkheden

 

[Rens90]

Hier heb ik een voorbeeld van hoe ik het zou willen, en dat onderin het totaal komt te staan.

 

[Rens90]

Een voorbeeldje met 2 mogelijkheden

Hoi Rudi,

Bedankt voor uw bestand, het werkt alleen niet bij mij. Ik krijg namelijk dit:



Uploaded with ImageShack.us

 

[Hoornvan]

Rens90,

Je zal de macro beveiliging die nu op hoog staat omlaag moeten brengen en dan zal het bestandje van Warme bakkertje wel werken.

 

[Rens90]

Sorry dat ik zo lastig ben, maar het klopt dat het bestand het nu doet maar als ik hem in mijn eigen bestand gebruik krijg ik weer: #NAAM? bij beide methodes.

 

[RaymondC]

Je hebt beveiliging voor macro's op hoog staan waarschijnlijk.

Aanpassen via: tools - macro - security

 

[Hoornvan]

Rens90

Dit zijn de formules.

=TelAchtergrondkleur($A$1:$A$57;A59)	
=TelAchtergrondkleur($A$1:$A$57;A60)	
=TelAchtergrondkleur($A$1:$A$57;A61)	
=TelAchtergrondkleur($A$1:$A$57;A62)

Je moet natuurlijk wel de module van warme bakertje in je bestandje zetten.

 

[Rens90]

Rens90

Dit zijn de formules.

=TelAchtergrondkleur($A$1:$A$57;A59)	
=TelAchtergrondkleur($A$1:$A$57;A60)	
=TelAchtergrondkleur($A$1:$A$57;A61)	
=TelAchtergrondkleur($A$1:$A$57;A62)

Je moet natuurlijk wel de module van warme bakertje in je bestandje zetten.

Ja ik weet dat ik deze codes moet gebruiken, maar weet niet hoe ik die module kan overzetten naar mij eigen bestand(weet niet wat de module is).

 

[Hoornvan]

Zorg dat beide bestanden geopend zijn.
Als je in de VBA edtitor ben sleep je de modele van Warme bakkertje naar jouw bestand.

Als ik het goed heb open je de editor met ALT en F11

 

[Hoornvan]

Hier is je voorbeeld bestandje.

 

[Rens90]

Zorg dat beide bestanden geopend zijn.
Als je in de VBA edtitor ben sleep je de modele van Warme bakkertje naar jouw bestand.

Als ik het goed heb open je de editor met ALT en F11

Iedereen hartstikke bedankt,

Het werkt nu.
VBA is best ingewikkeld voor een leek als ik.

 

[Hoornvan]

rens90,

Als je tevreden ben zet de vraag dan als opgelost, dank u.:thumb:

 

[Rens90]

rens90,

Als je tevreden ben zet de vraag dan als opgelost, dank u.:thumb:

Daar zat ik al naar te kijken maar kan het nergens vinden.
Ook met ctr+f niet.

 

[Hoornvan]

Ik heb ook even moeten zoeken in dit nieuwe formaat van Helpmij.
Bij je vraag stelling, staat bovenin een blauweblak, daar kun je dat doen.

 

[Rens90]

Nu ben ik bij het volgende probleem,

Als ik nu een nieuwe cel een kleur geef, komt het niet bij het totaal te staan.

 

[Hoornvan]

rens90,

Zet deze code achter het blad, als je dan een kleur kiest en je klik op een andere cel, zal hij opnieuw tellen.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  Application.CalculateFull
End Sub

Klik met rechts op de tab van het blad en kies voor Programmacode weer geven en plak de code daarin.

Suc6