• 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.

meest voorkomende naam weergeven

Status
Niet open voor verdere reacties.
R

RJMS

Nieuwe gebruiker
Lid geworden
2 mei 2021
Berichten
4
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!
 

Bijlagen

  • gemiddelde Namen.xlsx
    106,8 KB · Weergaven: 53
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))))
 
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 bewerkt:
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
 
Ja dan moet je hem even vertalen naar het duits
 
@AlexCel:
Dank je voor je snelle antwoord..
Vreemd.... gebeurt niets... in K4 ingegeven, formule staat in zijn geheel in K4 weergegeven geen uitkomst?
 
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.
 
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.
 

Bijlagen

  • gemiddelde Namen (AC).xlsx
    108,7 KB · Weergaven: 9
Laatst bewerkt:
RJMS zei:
@AlexCel:
Dank je voor je snelle antwoord..
Vreemd.... gebeurt niets... in K4 ingegeven, formule staat in zijn geheel in K4 weergegeven geen uitkomst?
Klik om te vergroten...

Kolom K staat kennelijk opgemaakt als tekst. Even opmaken als Algemeen (Allgemein :)) en de formule opnieuw ingeven lost het op.
 
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.
 

Bijlagen

  • gemiddelde Namen(pcb).xlsb
    118,6 KB · Weergaven: 12
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
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan