Helpmij.nl
Helpmij.nl
Helpmij.nl

Quote

Weergeven resultaten 1 tot 15 van 15

Onderwerp: meest voorkomende naam weergeven

  1. #1
    Junior Member
    Geregistreerd
    2 mei 2021
    Vraag is niet opgelost

    meest voorkomende naam weergeven

    Hallo,

    Ik heb een probleem: Ik probeer de meest voorkomende naam uit meerdere cellen (uit 1 Rij)te laten weergeven.
    Ik heb een voorbeeld gemaakt en wil nu graag in kolom "K" het resultaat hebben.
    De namen staan in een drop-down list en ik kom niet verder... Is er misschien iemand met helpende hand?
    De namen zijn natuurlijk fictief;

    Bij voorbaat al dankjewel!
    Bijgevoegde bestanden Bijgevoegde bestanden

  2. #2
    Mega Senior JVeer's avatar
    Geregistreerd
    27 februari 2019
    Als je deze afsluit met control shift enter(matrix formule)

    Code:
    =INDEX(A4:I4;1;MAX(ALS(AANTAL.ALS(A4:I4;A4:I4)=MAX(AANTAL.ALS(A4:I4;A4:I4));KOLOM(A4:I4))))
    Gr,
    JV

  3. #3
    Mega Honourable Senior Member AlexCEL's avatar
    Geregistreerd
    3 april 2014
    Locatie
    Groningen
    Voor K4 (Excel 365):
    Code:
    =TRANSPONEREN(UNIEK(TRANSPONEREN(FILTER(A4:I4;AANTAL.ALS(A4:I4;A4:I4)=MAX(AANTAL.ALS(A4:I4;A4:I4));""))))
    Zet dubbele waarden naast elkaar.
    Laatst aangepast door AlexCEL : 2 mei 2021 om 13:00
    -- een (excel) voorbeeldbestandje zegt meer dan 1000 woorden --

  4. #4
    Junior Member
    Geregistreerd
    2 mei 2021
    Dank je voor de snelle reactie; Bij mij werkt de formule niet, misschien omdat ik met een duitse excel werk? Bij het kopieren,plakken en control shift enter krijg ik de (fout) melding: #NAME?
    Doe ik iets verkeerd?

    Gr,
    RJMS

  5. #5
    Mega Senior JVeer's avatar
    Geregistreerd
    27 februari 2019
    Ja dan moet je hem even vertalen naar het duits
    Gr,
    JV

  6. #6
    Junior Member
    Geregistreerd
    2 mei 2021
    @AlexCel:
    Dank je voor je snelle antwoord..
    Vreemd.... gebeurt niets... in K4 ingegeven, formule staat in zijn geheel in K4 weergegeven geen uitkomst?

  7. #7
    Junior Member
    Geregistreerd
    2 mei 2021
    @ J.Veer:
    ga ik eens proberen...;-)

  8. #8
    Mega Senior JVeer's avatar
    Geregistreerd
    27 februari 2019
    Je kunt het ook zo doen met een UDF

    Code:
    Function jveer(rng)
      For Each cl In rng
        a = Application.CountIf(rng, cl)
        If a > b Then b = a: c = cl
      Next
     jveer = c
    End Function
    Invullen als =jveer(A4:I4) en doortrekken.
    Gr,
    JV

  9. #9
    Mega Honourable Senior Member AlexCEL's avatar
    Geregistreerd
    3 april 2014
    Locatie
    Groningen
    Deze is nog wat korter (Excel 365):
    Code:
    =LET(x;A4:I4;y;AANTAL.ALS(x;x);TRANSPONEREN(UNIEK(TRANSPONEREN(FILTER(x;y=MAX(y);"")))))
    Formules in voorbeeldje ingevuld.
    Bijgevoegde bestanden Bijgevoegde bestanden
    Laatst aangepast door AlexCEL : 2 mei 2021 om 14:27
    -- een (excel) voorbeeldbestandje zegt meer dan 1000 woorden --

  10. #10
    Mega Senior Timshel's avatar
    Geregistreerd
    14 februari 2015
    Locatie
    Leiden
    Quote Origineel gepost door RJMS Bekijk Bericht
    @AlexCel:
    Dank je voor je snelle antwoord..
    Vreemd.... gebeurt niets... in K4 ingegeven, formule staat in zijn geheel in K4 weergegeven geen uitkomst?
    Kolom K staat kennelijk opgemaakt als tekst. Even opmaken als Algemeen (Allgemein ) en de formule opnieuw ingeven lost het op.
    Er bestaan geen wonderen. Er is slechts onbegrip. -Spinoza-

  11. #11
    Senior Member
    Verenigingslid
    Piet Bom's avatar
    Geregistreerd
    13 november 2010
    Locatie
    Fijnaart
    Hiebij een wat meer uitgebreide UDF,die ook de Ex aequo's laat zien met daarbij het hoogste aantal.
    Misschien kan de versie van JVeer met een kleine aanpassing, hetzelfde doen.
    Bijgevoegde bestanden Bijgevoegde bestanden
    Met vriendelijke groeten / Kind regards / Mit freundlichen Grüßen / Meilleurs souvenirs / Venlig hilsen / Cordiali saluti / Atentos saludos / Considerações Amáveis / Saygilarimla / مع أطيپ التحيات,
    Piet Bom

  12. #12
    Mega Senior JVeer's avatar
    Geregistreerd
    27 februari 2019
    Jawel

    Code:
    Function jveer(rng)
      With Application
        ar = .Max(.CountIf(rng, rng))
          For Each cl In rng
            If .CountIf(rng, cl) = ar And InStr(c00, cl) = 0 Then c00 = c00 & " + " & cl & " (" & ar & "x)"
          Next
        jveer = Mid(c00, 4, Len(c00))
      End With
    End Function
    Gr,
    JV

  13. #13
    Senior Member
    Verenigingslid
    Piet Bom's avatar
    Geregistreerd
    13 november 2010
    Locatie
    Fijnaart
    Mooie compacte oplossing, JVeer
    Met vriendelijke groeten / Kind regards / Mit freundlichen Grüßen / Meilleurs souvenirs / Venlig hilsen / Cordiali saluti / Atentos saludos / Considerações Amáveis / Saygilarimla / مع أطيپ التحيات,
    Piet Bom

  14. #14
    Mega Senior JVeer's avatar
    Geregistreerd
    27 februari 2019
    Thanks
    Gr,
    JV

  15. #15
    Giga Honourable Senior Member
    Geregistreerd
    2 maart 2013
    Je kan een paard naar het water leiden, maar je kan het niet dwingen te drinken.

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

Regels
Help

Helpmij.nl en business

Partners
Sponsoren