Helpmij.nl
Helpmij.nl
Helpmij.nl

Quote

Weergeven resultaten 1 tot 15 van 15

Onderwerp: dubbele waarden weergeven

  1. #1
    Mega Senior
    Geregistreerd
    14 december 2004
    Locatie
    Leusden
    Vraag is opgelost

    dubbele waarden weergeven

    Ik heb een tabel waarin - naast een datum - ook getallen staan. De datum moet er wel in blijven staan, maar is voor de zoekopdracht niet van belang.
    Nu zoek ik me te pletter naar een formule die me PER REGEL vertelt: als er een getal twee keer voorkomt, welk getal is dat dan?
    Zie het voorbeeld in veld Z19.

    (De werkelijke tabel is 73.000 regels lang)

    Vriendelijke groet,
    Guido
    Bijgevoegde bestanden Bijgevoegde bestanden

  2. #2
    Junior Member
    Geregistreerd
    22 september 2004
    Ik kan je wel helpen via een draaitabel

  3. #3
    Giga Honourable Senior Member
    Geregistreerd
    18 juli 2008
    Matrix.

    Ned.
    Code:
    =ALS.FOUT(KLEINSTE(ALS((NIET(IS.EVEN(KOLOM(A1:X1)))*(AANTAL.ALS(A1:X1;A1:X1)>1));$A1:$X1;"");1);"")
    Eng.
    Code:
    =IFERROR(SMALL(IF((NOT(ISEVEN(COLUMN(A1:X1)))*(COUNTIF(A1:X1,A1:X1)>1)),$A1:$X1,""),1),"")
    ____________
    Met vriendelijke groet,
    Harry

    Lag nooit om de keuzes van dien vraauw, bist ter zulf aine van....
    (Grunnegs-Gronings)

  4. #4
    Giga Senior
    Verenigingslid

    Geregistreerd
    19 april 2007
    Locatie
    den haag
    ik krijg die formules niet aan de praat (ze geven max 1 oplossing per regel), dus hier een eenvoudige poging met vba: anders gebruik je een draaitabel
    Bijgevoegde bestanden Bijgevoegde bestanden
    Laatst aangepast door sylvester-ponte : 26 maart 2020 om 20:49
    groeten Sylvester Ponten

    ik gebruik Ms Windows 10 en excel 2010

  5. #5
    Senior Member JVeer's avatar
    Geregistreerd
    27 februari 2019
    Kleine aanvulling op die van Harry:

    Code:
    =ALS.FOUT(KLEINSTE(ALS((IS.ONEVEN(KOLOM($A1:$X1))*(AANTAL.ALS($A1:$X1;$A1:$X1)>1));$A1:$X1;"");KOLOM(B1));"")
    Ik zag dat in een rij meerdere dubbele waarden voor kunnen komen. Daarom de 1 vervangen door KOLOM (B1). Nu kun je naar rechts doortrekken om eventuele andere dubbele te vinden.

  6. #6
    Senior Member JVeer's avatar
    Geregistreerd
    27 februari 2019
    @sylvester, ik had daar ook last van. Heb de waarden in een ander bestand gezet en toen deed hij het wel.

  7. #7
    Giga Honourable Senior Member
    Geregistreerd
    18 juli 2008
    Beter?
    Code:
    =ALS.FOUT(MODUS(ALS(NIET(IS.EVEN(KOLOM(A1:X1)));A1:X1;""));"")
    ____________
    Met vriendelijke groet,
    Harry

    Lag nooit om de keuzes van dien vraauw, bist ter zulf aine van....
    (Grunnegs-Gronings)

  8. #8
    Giga Honourable Senior Member
    Geregistreerd
    18 juli 2008
    Er zitten inderdaad meerderen in.
    Formules werken hier feilloos trouwens.


    73000 rijen is overigens veel teveel voor een matrix.
    Bijgevoegde bestanden Bijgevoegde bestanden
    Laatst aangepast door HSV : 26 maart 2020 om 20:51
    ____________
    Met vriendelijke groet,
    Harry

    Lag nooit om de keuzes van dien vraauw, bist ter zulf aine van....
    (Grunnegs-Gronings)

  9. #9
    Senior Member JVeer's avatar
    Geregistreerd
    27 februari 2019
    Ze werken inderdaad perfect. Die eerste wat je maakte met die aanpassing naar kolom B1 vind ik persoonlijk nog de beste

  10. #10
    Giga Honourable Senior Member
    Geregistreerd
    18 juli 2008
    Lees mijn laatste regel in mijn vorig schrijven eens.
    ____________
    Met vriendelijke groet,
    Harry

    Lag nooit om de keuzes van dien vraauw, bist ter zulf aine van....
    (Grunnegs-Gronings)

  11. #11
    Giga Senior
    Verenigingslid

    Geregistreerd
    19 april 2007
    Locatie
    den haag
    en als er straks meer dan 2 oplossingen zijn?
    groeten Sylvester Ponten

    ik gebruik Ms Windows 10 en excel 2010

  12. #12
    Mega Senior cow18's avatar
    Geregistreerd
    24 mei 2008
    Locatie
    Alveringem, België
    voor 73.000 rijen mag je al iets meer moeite doen
    Bovendien, zoals opgemerkt, hij toont alle dubbele
    Code:
    Sub MijnDubbelen2()
       sn = Sheets("Blad1").Range("A1").CurrentRegion   'inlezen gegevens
       Set sca = CreateObject("System.Collections.ArrayList")   'aanmaak gesorteerde arraylist
       For i = 1 To UBound(sn)                       'alle rijen aflopen
          For j = 1 To UBound(sn, 2) Step 2          'enkel de oneven kolommen toevoegen aan sca
             sca.Add sn(i, j)
          Next
          
          sca.Sort                                   'sorteren
          a = sca.toarray                            'naar array lezen
          l = -1000000000#                           'zeer kleine startwaarde
          s = ""                                     'string leegmaken
          For j = 0 To UBound(a) - 1                 'in een loop alle waarden aflopen en kijken of de volgende gelijk was en niet gelijk aan de vorige
             If a(j) = a(j + 1) And a(j) <> l Then s = s & "|" & a(j): l = a(j)   'zo ja, toevoegen aan string en laatste aanpassen
          Next
          
          s1 = s1 & "\" & Mid(s, 2)                  'verzamelstring
          sca.Clear                                  'sca leegmaken
       Next
       
       a2 = Split(s1, "\")                           'verzamelstring splitten
       Sheets("Blad1").Range("AB1").Resize(UBound(a2) + 1).Value = Application.Transpose(a2)   'wegschrijven
    End Sub
    Laatst aangepast door cow18 : 27 maart 2020 om 05:29

  13. #13
    Giga Honourable Senior Member
    Geregistreerd
    18 juli 2008
    Bij de eerste formule die ik maakte had ik niet door dat er meerdere dubbelingen in konden zitten.

    Deze matrix als alternatief voor het doorvoeren naar rechts, mocht iemand minder dan 73000 rijen te verwerken hebben.
    Code:
    =ALS.FOUT(KLEINSTE(ALS((IS.ONEVEN(KOLOM($A1:$X1))*(AANTAL.ALS($A1:$X1;$A1:$X1)>1));$A1:$X1;"");1+SOM(AANTAL.ALS($A1:$X1;$Y1:Y1)));"")
    Laatst aangepast door HSV : 27 maart 2020 om 18:32 Reden: typo in tekst
    ____________
    Met vriendelijke groet,
    Harry

    Lag nooit om de keuzes van dien vraauw, bist ter zulf aine van....
    (Grunnegs-Gronings)

  14. #14
    Mega Honourable Senior Member popipipo's avatar
    Geregistreerd
    21 november 2006
    @wjweert
    Ik kan je wel helpen
    Is dit een niets zeggende standaard zin van je, want bij elke reactie zie ik deze weer terug
    Willem

    25 % van de oplossing is het juist formuleren van de vraag.
    25 % van de oplossing is het juist lezen van de vraag.
    25 % van de oplossing is het xls voorbeeldje bij de vraag.
    25 % van de oplossing is het antwoord op de vraag.

  15. #15
    Mega Senior cow18's avatar
    Geregistreerd
    24 mei 2008
    Locatie
    Alveringem, België
    ik was meer getriggerd door de 2e helft van die zin, een draaitabel !!!
    Wat was het plan ? Ik kon er me niets bij bedenken.

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