Helpmij.nl
Helpmij.nl
Helpmij.nl
Steun Helpmij.nl! Klik hier     Computerprobleem? Klik hier!

Quote

Pagina 2 van 2 EersteEerste 1 2
Weergeven resultaten 21 tot 39 van 39

Onderwerp: Aantal gekleurde cellen optellen in een kolom.

  1. #21
    Giga Honourable Senior Member
    Geregistreerd
    2 maart 2013
    @edmoor, over welk bestandje heb je het?

    En anders
    Gewoon een aantal voorwaarden in de UDF opnemen. Om mij onduidelijke reden werkt Instr niet zoals ik wil dus maar even een extra variabele.

    Code:
    Function KleurenTellen(Bereik As Range, Kleur As Range)
      For Each cl In Bereik
        t = LCase(cl.Value) = "v" Or LCase(cl.Value) = "z"
        If cl.Interior.Color = Kleur.Interior.Color Then KleurenTellen = KleurenTellen + 1 + t
      Next cl
    End Function
    Bijgevoegde bestanden Bijgevoegde bestanden
    Je kan een paard naar het water leiden, maar je kan het niet dwingen te drinken.

  2. #22
    Tera Honourable Senior Member edmoor's avatar
    Geregistreerd
    8 september 2000
    Locatie
    Zuid-Holland
    Ik heb het over het bestandje in #20.
    "It's hardware that makes a machine fast. It's software that makes a fast machine slow. "
    Op rechtstreekse vragen via email of privébericht reageer ik niet. Daar is het forum voor.
    Lees ook: http://www.helpmij.nl/forum/announcement.php?f=5

  3. #23
    Giga Honourable Senior Member
    Geregistreerd
    2 maart 2013
    Dan heb ik even nieuwe bril nodig. Geen bestand te vinden volgens mij in #20
    Je kan een paard naar het water leiden, maar je kan het niet dwingen te drinken.

  4. #24
    Senior Member
    Geregistreerd
    24 oktober 2012
    @ Edmoor

    In B15 staat uw functie, die ik heb aangevuld.
    Met de functie alleen veranderd B15 niet; of ik heb iets overgeslagen.
    Kan best, sorry dan hoor.

    Ik heb het over de toevoeging van
    Code:
    Application.Volatile
    Als ik dat weglaat, bekom ik hetzelfde resultaat.
    Daarom mijn vraag of er me iets ontsnapt is.

    Bedankt alvast dat u me wil verbeteren.

  5. #25
    Tera Honourable Senior Member edmoor's avatar
    Geregistreerd
    8 september 2000
    Locatie
    Zuid-Holland
    Quote Origineel gepost door VenA Bekijk Bericht
    Dan heb ik even nieuwe bril nodig. Geen bestand te vinden volgens mij in #20
    Mijn fout, moet #19 zijn.
    Wees dus gerust

    @ jempi10
    Die Application.Volatile is in dit geval niet nodig.
    De functie werkt prima op de manier zoals ik in #20 zei.
    Laatst aangepast door edmoor : 14 januari 2019 om 20:37
    "It's hardware that makes a machine fast. It's software that makes a fast machine slow. "
    Op rechtstreekse vragen via email of privébericht reageer ik niet. Daar is het forum voor.
    Lees ook: http://www.helpmij.nl/forum/announcement.php?f=5

  6. #26
    Senior Member
    Geregistreerd
    24 oktober 2012
    @ Edmoor,

    Bedankt, maar ga toch eens uitpluizen wat het doet, en wanneer nuttig.

  7. #27
    Tera Honourable Senior Member edmoor's avatar
    Geregistreerd
    8 september 2000
    Locatie
    Zuid-Holland
    "It's hardware that makes a machine fast. It's software that makes a fast machine slow. "
    Op rechtstreekse vragen via email of privébericht reageer ik niet. Daar is het forum voor.
    Lees ook: http://www.helpmij.nl/forum/announcement.php?f=5

  8. #28
    Giga Honourable Senior Member
    Geregistreerd
    2 maart 2013
    @edmoor, ik dacht al...

    @jempi10, Het wijzigen van een cel- of tekstkleur (tenzij je copy/paste gebruikt) geeft geen 'change_event' ook niet met Application.Volatile. Als je ergens in een cel een volatiele functie zet als =NOW() dan wordt het wel bijgewerkt.
    Je kan een paard naar het water leiden, maar je kan het niet dwingen te drinken.

  9. #29
    Senior Member
    Geregistreerd
    24 oktober 2012
    @ Edmoor en VanA : allebei bedankt.
    Zal een tijdje zoet zijn.

  10. #30
    Junior Member
    Geregistreerd
    13 januari 2019
    @Edmoor, @VenA, @jempi10
    Bedankt voor jullie bijdrage.

    Met de toegevoegde formules wordt het bestand voor mij steeds meer bruikbaar.

    Loop nu nog tegen 1 probleem aan maar weet niet of dit überhaupt opgelost kan worden;
    Het aantal van de opgetelde kleuren (regel 66 tm 69) (vroeg-laat-nacht) zou bij elke ingevoerde opmaak (V verlof- Z ziek - x parttime) per kleur moeten wijzigen.

    Het meest praktische zou zijn als je in 1 kolom (regel 3 tm regel 64) kan zoeken met de juiste formule en dat je het juiste aantal medewerkers hebt in zowel de vroege-, late- of nachtdienst.
    Het getal klopt in Cel G 66, Cel G 67, G 68 en G 69 kloppen niet,
    Het getal klopt ook in Cel K 68 maar niet in Cel K 66, K 67 en K69

    Ik heb het bestand toegevoegd hoe het er uiteindelijk uit moet komen te zien.


    Mocht iemand de oplossing weten dan hoor ik dit graag.
    Bijgevoegde bestanden Bijgevoegde bestanden
    Laatst aangepast door snb : 15 januari 2019 om 12:42

  11. #31
    Senior Member
    Geregistreerd
    24 oktober 2012
    U wenst zonder hulpblad te werken; voor mij een trapje te hoog.
    Dus even wachten op ander suggesties.

    Toch nog dit :

    Het aantal van de opgetelde kleuren (regel 66 tm 69) (vroeg-laat-nacht) zou bij elke ingevoerde opmaak (V verlof- Z ziek - x parttime) per kleur moeten wijzigen.
    de kleur wijzigt bij invoer van "v" of "z"; wat bedoelt u dan juist?
    (een aanpassing voor "x", parttime, is geen probleem).

  12. #32
    Mega Senior E v R's avatar
    Geregistreerd
    22 oktober 2008
    Quote Origineel gepost door ex1 Bekijk Bericht
    Loop nu nog tegen 1 probleem aan maar weet niet of dit überhaupt opgelost kan worden;
    Alles kan, gebruik een macro die middels displayformat de kleur telt en de uitkomst(en) in jouw cellen zet.
    Of gebruik voor alle combinaties VO
    Gr. Eric

  13. #33
    Senior Member
    Geregistreerd
    24 oktober 2012
    Toch nog een poging (de parttime moet nog aangevuld worden) :
    Bijgevoegde bestanden Bijgevoegde bestanden
    Laatst aangepast door jempi10 : 15 januari 2019 om 16:51

  14. #34
    Junior Member
    Geregistreerd
    13 januari 2019
    @Jempi10
    Thanks voor je reactie en je aangepast bestand.

    Zoals ik het kan zien worden de getallen aangepast zoals ik zou willen.
    X Parttime eraan toevoegen gaat me wel lukken.



    De reden waarom ik het zonder hulp map wilde doen is omdat ik er ook nog een map 3-ploegen, 2-ploegen en dagdienst
    aan wilde toevoegen en dat alle gegevens in de map 5-ploegen bij elkaar komen in 1 totaal.

    Het doel van het bestand is om een overzicht te krijgen hoeveel mensen je per dag in de vroege dienst, late dienst en in de nachtdienst
    beschikbaar hebt, hiermee rekening houdend met verlof, ziekte of parttime over alle ploegen.


    In het bestand wat ik in bericht #30 heb geplaatst werk ik met de volgende formule;
    =KleurenTellen(C3:C64;$B$66)-AANTAL.ALS(C3:C64;"v")-AANTAL.ALS(C3:C64;"z")-AANTAL.ALS(C3:C64;"x")
    Het probleem waar ik dan tegenaan loop is; Als er iemand verlof pakt in de late dienst veranderen er 4 getallen i.p.v.
    alleen het getal die de late diensten bij elkaar telt.

    Het zou het iets makkelijker maken als ik het in 1 formule kan zetten i.p.v. gebruik te maken van een hulp map.


    Nogmaals Thanks!

  15. #35
    Allemaal volstrekt overbodig als je geen vulkleur zou hebben gebruikt om in een cel een gegeven te zetten. Als je toch al letters in die cellen zet voor bepaalde bijzondere zaken zoals (V)erlof en (Z)iek, waarom dan niet ook letters voor Geel en Rood? Dan kan je simpel gebruik maken van functies als AANTAL.ALS of AANTALLEN.ALS en heb je helemaal geen (trage) VBA functie nodig.
    Groetjes,

    Jan Karel Pieterse
    Excel MVP jkp-ads.com

  16. #36
    Senior Member
    Geregistreerd
    24 oktober 2012
    Het is logische dat er 4 getallen veranderen: u controleert 4X van C3 tot C64; er staat meer dan 1 ploeg in, maar V of Z wordt telkens afgetrokken.
    ik maak de balans per ploeg, zie op het hulpblad, per ploeg vier lijnen.

    En maak u geen zorgen, u kan nog veel mappen invoeren, en telkens werken op dat hulpblad.
    Maar de beslissing ligt bij u.
    Hier nog de bijwerking met parttime.

    @jkpieterse
    zou het veel verschil maken of er gebruik gemaakt wordt van AANTAL.ALS of KLEURENTELLEN?
    Bijgevoegde bestanden Bijgevoegde bestanden

  17. #37
    Dat zal je moeten meten. Maar zeker is dat rekenen met de inhoud van cellen, met ingebouwde functies vrijwel altijd sneller is dan gebruik maken van Used Defined Functies. Ik vind het ook conceptueel volstrekt onjuist om te rekenen met de opmaak van een cel. Excel is gebouwd om met de celinhoud te rekenen, niet met de opmaak.
    Groetjes,

    Jan Karel Pieterse
    Excel MVP jkp-ads.com

  18. #38
    Senior Member
    Geregistreerd
    24 oktober 2012
    Heb me gebaseerd op Edmoor, vond het leerrijk te experimenteren met een door hem gemaakte functie, KleurenTellen.

    U zult natuurlijk ook gelijk hebben, maar ex1 beslist; ik heb gewerkt op zijn ontwerp.
    Toch bedankt voor de suggestie.

  19. #39
    Junior Member
    Geregistreerd
    13 januari 2019
    Fijn dat er verschillende oplossingen aangedragen worden.
    Ik zie nu ook dat het ook goed te maken is met een voorwaardelijke opmaak
    en dan tellen op AANTALLEN.ALS.

    Ik vind Excel een prachtig en zeer nuttig programma, termen als UDF waren
    voor mij niet eerder bekend maar ben de laatste dagen zeker een stuk wijzer geworden.


  20. Dit topic is automatisch gesloten omdat er sinds vier maanden niet meer op gereageerd is.

    Indien gewenst kan de topicstarter een verzoek tot heropening indienen.

Berichtenregels

  • U mag geen nieuwe vragen starten.
  • U mag niet reageren op berichten.
  • U mag geen bijlagen versturen.
  • U mag uw berichten niet bewerken.
  •  
Helpmij.nl
Helpmij.nl

Helpmij.nl en business

Partners
Sponsoren