• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

Gekleurde cellen met tekst optellen

Status
Niet open voor verdere reacties.
A

Assisi

Gebruiker
Lid geworden
30 dec 2011
Berichten
42
Hoi allemaal,

Op Internet heb ik al wat meer info gevonden, maar ik heb ook gemerkt dat velen er toch nog niet helemaal uitkomen. Zo ik ook:confused:

Graag zou ik in een planning gekleurde cellen (excel 2010) waarin tekst staat op willen laten tellen. Op dit moment gebruik ik een andere formule (zie bijlage), maar dit is vrij omslachtig. In dit bestand verberg ik rij A (#VERW!) en B (WIJ), onhandig dus.

#VERW! WIJ Geel
#VERW! WIJ Geel
#VERW! ANN Rood
#VERW! ZIE Oranje


WIJ Geel 2 (=AANTAL.ALS('Planning 2011'!B1:B615;"*WIJ*")
M/N Geel 0 (etc...)
ANN Rood 1
ZIE Oranje 1

Het lukt mij niet om het bestand toe te voegen, vandaar maar zo:)

Ben al wel in VBA bezig geweest, maar het is mij niet gelukt:(
Weet trouwens niet of dit invloed heeft op volgende formules. Weet ook niet hoe je de oude formules uit VBA kunt halen.

Kan iemand mij helpen???

Alvast bedankt!

Groeten, Suzanne
 
Dag Ad Becude,

Dank voor jouw reactie.

Helaas lukt het nog niet, het bestand is te groot.

Groeten, Suzanne
 
Hai allemaal,

Ik vroeg mij af of er iemand is die misschien al wat meer weet.
Kom er helaas echt niet uit:(

Groeten, Suzanne
 
Als je toch met VBA bezig bent, probeer dit eens.

Code: 
Sub ProbeerDitEens()
    TellerA = 0
    TellerB = 0
    TellerC = 0
    TellerD = 0
    For Each c In Range("A1", Range("A" & Rows.Count).End(xlUp))
        If c.Value = "WIJ" And c.Interior.ColorIndex = 6 Then TellerA = TellerA + 1
        If c.Value = "M/N" And c.Interior.ColorIndex = 6 Then TellerB = TellerB + 1
        If c.Value = "ANN" And c.Interior.ColorIndex = 3 Then TellerC = TellerC + 1
        If c.Value = "ZIE" And c.Interior.ColorIndex = 46 Then TellerD = TellerD + 1
    Next c
    Range("D6").Value = TellerA   '<-----Range("D6") naar verlang veranderen
    Range("D7").Value = TellerB   '<-----Range("D7") naar verlang veranderen
    Range("D8").Value = TellerC   '<-----Range("D8") naar verlang veranderen
    Range("D9").Value = TellerD   '<-----Range("D9") naar verlang veranderen
End Sub
 
Hoi Jolivanes,

Dank voor jouw bericht en de formule!

Moet eerlijk bekennen dat ik nog nooit met VBA heb gewerkt en kom er nog niet helemaal uit. Kan er iemand mij verder helpen?

Groeten, Suzanne
 
Even in het engels.

Code: 
Sub ProbeerDitEens()
    TellerA = 0
    TellerB = 0
    TellerC = 0
    TellerD = 0
    For Each c In Range("A1", Range("A" & Rows.Count).End(xlUp))
        If c.Value = "WIJ" And c.Interior.ColorIndex = 6 Then TellerA = TellerA + 1
        If c.Value = "M/N" And c.Interior.ColorIndex = 6 Then TellerB = TellerB + 1
        If c.Value = "ANN" And c.Interior.ColorIndex = 3 Then TellerC = TellerC + 1
        If c.Value = "ZIE" And c.Interior.ColorIndex = 46 Then TellerD = TellerD + 1
    Next c
    Range("D6").Value = TellerA
    Range("D7").Value = TellerB
    Range("D8").Value = TellerC
    Range("D9").Value = TellerD
End Sub


Adding the Macro
Select de macro above.
Copy the macro above pressing the keys CTRL+C
Open your workbook
Press the keys ALT+F11 to open the Visual Basic Editor
Press the keys ALT+I to activate the Insert menu
Press M to insert a Standard Module
Paste the code by pressing the keys CTRL+V
Make any custom changes to the macro if needed at this time.
Save the Macro by pressing the keys CTRL+S
Press the keys ALT+Q to exit the Editor, and return to Excel.


To Run the Macro...
To run the macro from Excel, open the workbook, and press ALT+F8 to display the Run Macro Dialog. Double Click the macro's name to Run it.

Hopelijk ziet een nederlandstalig iemand het en zet het er in het Nederlands hier.
 
M'n Engels wordt wat roestig maar dit zou het moeten zijn.;)

Macro toevoegen ….
Selecteer bovenstaande macro
Kopieër bovenstaande macro door CTRL+C in te drukken
Open je bestand
Druk ALT+F11 om de VB-Editor te openen
Druk ALT+I om het Invoegen-menu te activeren
Druk M om een standaardmodule in te voegen
Plak de code door CTRL+V in te drukken
Maak indien nodig de nodige aanpassingen aan de macro
Sla de macroop door CTRL+S in te drukken
Druk ALT+Q om de VB-Editor te verlaten en terug te keren naar Excel

Om de macro te starten
Om de macro vanuit Excel te starten, open je bestand en druk ALT+F8 om het Macromenu te openen. Dubbelklik op de macronaam om te starten.
 
Nu moet je de macro gaan aanpassen aan de werkelijke situatie.
In welk bereik staan de te controleren cellen ? Welke lettercombinaties en kleuren zijn mogelijk ? Welke kleuren gebruik je juist ? Bepaal de kleurindex v/d te controleren cellen zodat er niet gezocht wordt op een verkeerde kleur.
Kan je dit alles zelf niet voorzie ons dan van deze informatie zodat we je gericht kunnen helpen (liefst met voorbeeldbestand)
 
Re: Bepaal de kleurindex v/d te controleren cellen zodat er niet gezocht wordt op een verkeerde kleur.
Ja dat kan een probleem zijn als je niet weet hoe dat werkt. Kleur 45 and 46 zijn allebei oranje maar de code werkt niet goed als deze verwisseld worden. Ik heb de kleur index als volgt gekregen.

Code: 
Sub ShowColour()
MsgBox "Index" & vbTab & ActiveCell.Interior.ColorIndex
End Sub

Groetjes

Han
 
Status
Niet open voor verdere reacties.
                    Steun ons                    

Nieuwste berichten

Terug
Bovenaan Onderaan