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

Quote

Weergeven resultaten 1 tot 16 van 16

Onderwerp: Rij van unieke getallen uit een veld met getallen

  1. #1
    Junior Member
    Geregistreerd
    10 september 2018
    Vraag is opgelost

    Question Rij van unieke getallen uit een veld met getallen

    Beste Excel-fanaten,

    Is er een mogelijkheid om uit een veld (van ongelijke kolommen) bestaande uit kolommen en rijen, de unieke data te halen doormiddel van een matrix-formule of een macro? Ik kan op het internet veel vinden over het opstellen van een lijst met unieke data uit één kolom, maar kan niks vinden over een veld. Er staat een oefenbestand in de bijlage. Ik ben benieuwd.

    Met vriendelijke groet,
    Brockenspook

    Oefenbestand unieke data.xlsx
    Laatst aangepast door Brockenspook : 11 oktober 2018 om 14:39

  2. #2
    Giga Senior AlexCEL's avatar
    Geregistreerd
    3 april 2014
    Locatie
    Groningen
    Afstand tot server
    ±117 km
    Deze in I2:
    Code:
    =ALS.FOUT(1/(1/GROOTSTE(ALS(AANTAL.ALS($I$1:I1;$A$1:$E$7)=0;$A$1:$E$7;"");1));"")
    Let op: matrixfunctie, d.w.z. afsluiten met Control+Shift+Enter alvorens door te voeren naar onder.
    -- een voorbeeldbestandje zegt meer dan 1000 woorden --

  3. #3
    Mega Senior E v R's avatar
    Geregistreerd
    22 oktober 2008
    Hierbij ook nog een mogelijkheid middels een draaitabel, in kolom P AlexCEL's suggestie
    Attached Files Attached Files
    Gr. Eric

  4. #4
    Giga Honourable Senior Member HSV's avatar
    Geregistreerd
    18 juli 2008
    Niet matrix.
    Code:
    =ALS.FOUT(KLEINSTE($A$1:$E$100;1+SOMPRODUCT(AANTAL.ALS($A$1:$E$100;I$1:I1)));"")
    ____________
    Met vriendelijke groet,
    Harry

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

  5. #5
    Mega Senior cow18's avatar
    Geregistreerd
    24 mei 2008
    Locatie
    Alveringem, België
    @EvR, hoe heb je die draaitabel gemaakt ? Ik krijg dat niet zelf voor elkaar

  6. #6
    Giga Honourable Senior Member
    Geregistreerd
    2 maart 2013
    @cow18, Met de toetsen combinatie <Alt> d p krijg je een andere wizard om een draaitabel samen te stellen. Waarschijnlijk heeft @E v R dit trucje toegepast. Klik op afbeelding voor grotere versie

Naam:  Knipsel.PNG
Bekeken: 16
Grootte:  48,6 KB
    Je kan een paard naar het water leiden, maar je kan het niet dwingen te drinken.

  7. #7
    Mega Senior E v R's avatar
    Geregistreerd
    22 oktober 2008
    @Bart, half Engels-Ned, werk met Engelse versie @ VenA

    • zorg er eerst voor dat je links en boven een lege kolom/regel hebt staan. (Anders werkt het niet, mis je de bovenste rij en linkse kolom)
    • Start dan de Draaitabel Wizard op, Alt+D P, Heb deze zelf in Quick Acces Toolbar staan
    • Kies multiple consoldiation ranges
    • Next,
    • Create Single Page fileld, klik je toch weg
    • Next
    • Kies Range vanaf 1e (lege) kolom en 1e (lege) rij
    • Add
    • Next
    • Kies locatie
    • Finish
    • Klik alles weg (Fields/Velden) en zet Value in rijen/rows ipv Values/waarden
    • Filter eventueel Blanks eruit
    Laatst aangepast door E v R : 11 oktober 2018 om 21:10
    Gr. Eric

  8. #8
    Giga Honourable Senior Member
    Geregistreerd
    2 maart 2013
    @E v R, Volgens mij zit het niet voor niets zo verstopt. Mijn ervaring is dat het nagenoeg nooit lekker werkt. Een soort voorloper van PowerPivot (al zit het er al wel lang in)
    Je kan een paard naar het water leiden, maar je kan het niet dwingen te drinken.

  9. #9
    Mega Senior E v R's avatar
    Geregistreerd
    22 oktober 2008
    Deel die ervaring niet, maar waarschijnlijk wel verstopt vanwege PowerPivot, zal morgen eens kijken of ik tijd heb voor een PowerPivot variant, hoewel (helaas) weinig gebruikers dit tot hun beschikking hebben
    Gr. Eric

  10. #10
    Mega Senior cow18's avatar
    Geregistreerd
    24 mei 2008
    Locatie
    Alveringem, België
    @EvR, ah zo, ik heb die meervoudige samenvoegingsbereiken nooit echt gebruikt, ik vond ze onhandig.
    Ook in deze context vind ik ze wel handig doch oneigenlijk gebruik.
    Maar het werkt toch ...

  11. #11
    Junior Member
    Geregistreerd
    10 september 2018

    Thumbs up Bedankt!

    Bedankt allemaal voor het meedenken. Alle drie de uitwerkingen voldoen aan wat ik in gedachte had. Bedankt!

  12. #12
    Giga Honourable Senior Member
    Verenigingslid

    Geregistreerd
    12 juni 2008
    Als je in een cel gaat staan van het gebied met waarden:

    Code:
    Sub M_snb()
      With ThisWorkbook.PivotCaches.Create(3, ActiveCell.CurrentRegion.Address(, , -4150, -1)).CreatePivotTable(ActiveCell.Offset(1 - ActiveCell.Row, ActiveCell.CurrentRegion.Columns.Count), "snb")
        .ColumnGrand = 0
        .RowGrand = 0
        .ClearTable
        With .PivotFields("Value")
          .Orientation = 1
          .PivotItems("(blank)").Visible = 0
        End With
      End With
    End Sub
    Laatst aangepast door snb : 12 oktober 2018 om 15:18
    VBA voor smarties
    VBA is een taal die je moet leren met een grammatica- en een woordenboek.

    http://www.helpmij.nl/forum/announcement.php?f=5
    Plaats svp geen bestanden op andere sites; nadat het bestand daar verwijderd is wordt een forumdraad onbegrijpelijk voor anderen.

  13. #13
    Mega Senior cow18's avatar
    Geregistreerd
    24 mei 2008
    Locatie
    Alveringem, België
    bijna juist, zie 1e lijn van #7 + nederlandstalige excel in mijn geval
    Code:
    Sub M_snb()
    
        With ActiveCell.CurrentRegion
            Set c = .Offset(-1, -1).Resize(.Rows.Count + 1, .Columns.Count + 1)
        End With
        
        With ThisWorkbook.PivotCaches.Create(3, c.Address(, , -4150, -1)).CreatePivotTable(ActiveCell.Offset(1 - ActiveCell.Row, ActiveCell.CurrentRegion.Columns.Count), "snb")
            .ColumnGrand = 0
            .RowGrand = 0
            .ClearTable
            With .PivotFields("Waarde")
                .Orientation = 1
                .PivotItems("(blank)").Visible = 0
            End With
        End With
    End Sub

  14. #14
    Giga Honourable Senior Member
    Verenigingslid

    Geregistreerd
    12 juni 2008
    Dan maken hem toch gewoon Vlaanderen-proof ?

    Code:
    Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
        If Target.CurrentRegion.Count = 1 Then Exit Sub
        
        With ThisWorkbook.PivotCaches.Create(3, Target.CurrentRegion.Address(, , -4150, -1)).CreatePivotTable(ActiveCell.CurrentRegion.Cells(1).Offset(, ActiveCell.CurrentRegion.Columns.Count + 1), "snb")
            .ColumnGrand = 0
            .RowGrand = 0
            .ClearTable
            With .PivotFields(3)
              .Orientation = 1
              .PivotItems("(blank)").Visible = 0
            End With
        End With
    
        Cancel = True
    End Sub
    Laatst aangepast door snb : 12 oktober 2018 om 17:12
    VBA voor smarties
    VBA is een taal die je moet leren met een grammatica- en een woordenboek.

    http://www.helpmij.nl/forum/announcement.php?f=5
    Plaats svp geen bestanden op andere sites; nadat het bestand daar verwijderd is wordt een forumdraad onbegrijpelijk voor anderen.

  15. #15
    Mega Senior cow18's avatar
    Geregistreerd
    24 mei 2008
    Locatie
    Alveringem, België
    @snb, allez vooruit, zondag stem ik op jou

  16. #16
    Giga Honourable Senior Member
    Verenigingslid

    Geregistreerd
    12 juni 2008
    Ik zal Bart de W. vast verwittigen..
    VBA voor smarties
    VBA is een taal die je moet leren met een grammatica- en een woordenboek.

    http://www.helpmij.nl/forum/announcement.php?f=5
    Plaats svp geen bestanden op andere sites; nadat het bestand daar verwijderd is wordt een forumdraad onbegrijpelijk voor anderen.

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