Waarde uit tabel omzetten naar lijst

[JanDoedel1]

Goedemorgen,

In een Excel bestand wil ik gegevens uit een tabel omzetten naar een lijst. In kolom A heb ik een rij met alle codes van de producten. In rij 1 heb ik alle weken staan wanneer deze weg moeten. Het aantal codes en aantal weken zijn niet altijd gelijk.

Nu zou ik graag een lijst willen maken met de code, daarachter de waarde uit de tabel met tot slot de week erbij in de derde cel.

Hoe zou ik dit kunnen omzetten?

Alvast bedankt!

[dix-neuf]

Het zou handig zijn als je een voorbeeld zou plaatsen.

[JanDoedel1]

Hoe kan ik een bestand bijvoegen?

[JanDoedel1]

[NESFreak]

Begrijp ik nu goed dat je het volgende wilt bereiken?

[dix-neuf]

Ik denk dat de vragensteller bedoelt zoals je in onderstaande afbeelding ziet.
Dat kun je bereiken door met een macro met 2 for-nextlussen alle rijen en kolommen te doorlopen en bij aanwezigheid van een waarde die (samen met bijbehorende code en week) naar een ander blad te kopiëren.

Enzovoort t/m code 140.

[JanDoedel1]

dix-neuf schreef op dinsdag 11 februari 2025 @ 12:03:
Ik denk dat de vragensteller bedoelt zoals je in onderstaande afbeelding ziet.
Dat kun je bereiken door met een macro met 2 for-nextlussen alle rijen en kolommen te doorlopen en bij aanwezigheid van een waarde die (samen met bijbehorende code en week) naar een ander blad te kopiëren.
[Afbeelding]
Enzovoort t/m code 140.

Klopt inderdaad, dit is wat ik zoek! Alleen weet ik niet hoe ik 2 for-nextlussen maak. Zou je dit kunnen toelichten?

[dix-neuf]

JanDoedel1 schreef op dinsdag 11 februari 2025 @ 12:10:
Alleen weet ik niet hoe ik 2 for-nextlussen maak. Zou je dit kunnen toelichten?

Je bedoelt waarschijnlijk dat ik dan de gehele macro schrijf. Dat zou kunnen, maar dat duurt dan (in mijn geval) weer een paar uur .Waarom zou iemand dat voor een 'Jan Doedel' ?

[JanDoedel1]

dix-neuf schreef op dinsdag 11 februari 2025 @ 12:18:
[...]
Je bedoelt waarschijnlijk dat ik dan de gehele macro schrijf. Dat zou kunnen, maar dat duurt dan (in mijn geval) weer een paar uur .Waarom zou iemand dat voor een 'Jan Doedel' ?

Nee, dat is natuurlijk niet wat ik verwacht. Maar is er ergens een goede handleiding hiervoor te vinden? Ik heb hier namelijk geen ervaring mee.

[Jaer288]

Net even vlug getest en volgens mij kom je hier een heel eind mee.

code:

Sub MatrixNaarTabel()
    Dim ws As Worksheet
    Dim rng As Range
    Dim cel As Range
    Dim outputRow As Long
    Dim lastRow As Long
    Dim lastCol As Long
    
    ' Instellen van het werkblad
    Set ws = ThisWorkbook.Sheets("Sheet1") ' Verander "Blad1" naar de naam van je werkblad
    
    ' Bepaal de laatste rij en kolom in de matrix
    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
    lastCol = ws.Cells(1, ws.Columns.Count).End(xlToLeft).Column
    
    ' Definieer de uitvoer rij voor de tabel
    outputRow = 1
    
    ' Loop door de matrix om de tabel te vullen
    For Each cel In ws.Range(ws.Cells(2, 2), ws.Cells(lastRow, lastCol))
        If cel.Value <> "" Then
            ws.Cells(outputRow, lastCol + 2).Value = ws.Cells(cel.Row, 1).Value ' Waarde uit kolom A
            ws.Cells(outputRow, lastCol + 3).Value = ws.Cells(1, cel.Column).Value ' Waarde uit bovenste rij
            ws.Cells(outputRow, lastCol + 4).Value = cel.Value ' Ingevulde waarde
            outputRow = outputRow + 1
        End If
    Next cel
End Sub

[hamsteg]

Denk dat je dit zelfs zonder macro's kun doen maar anders zijn het twee simpele loopjes die letterlijk rij en kolom doorlopen en als er een waarde staat dit dit samen met regel 1 en colom 1 in een tweede tabblad bijhouden.

Update: zie hierboven.

[ Voor 13% gewijzigd door hamsteg op 11-02-2025 12:43 ]

[SandaX]

Of je gebruikt unpivot in powerquery

[dix-neuf]

JanDoedel1 schreef op dinsdag 11 februari 2025 @ 12:33:
[...] is er ergens een goede handleiding hiervoor te vinden? Ik heb hier namelijk geen ervaring mee.

In de oudere (stand-alone-) versies van Excel had je in de helpfile een complete handleiding, die je als cursus kon gebruiken. In de nieuw(st)e versies moet je het vooral online zoeken. Dit: (klik hier) is een goede vba-site van Microsoft.

[dixet]

Wat @SandaX zegt is tegenwoordig toch een veel makkelijkere oplossing dan VBA.

• Ga naar het Data tab in je Ribbon
• Kies voor "From Table/Range" in de "Get and Transform data" sectie
• Gebruik je rechter muisknop op de kop van de 1e kolom en selecteer "Unpivot other columns"
• Kies "Close&Apply"

Klaar!