[XL 2003] Data in meerdere kolommen sorteren op één rij

[DouweEgberts]

Hé medetweakers,

Ik ben bezig met een excel spreadsheet die een aantal gegevens in het tabblad invoer automatisch converteert naar een tabel met opmaak die ik al heb.

Nu heb ik eindelijk alles werkend, alleen loop ik tegen één probleem aan.

Het werkblad ziet er als volgt uit:

Naam	Tijd	Tijd	Tijd	Naam	Tijd	Tijd	Tijd	Naam	Tijd	Tijd	Tijd
Jan	Tijd	Tijd	Tijd	Jan	Tijd	Tijd	Tijd	Piet	Tijd	Tijd	Tijd
Piet	Tijd	Tijd	Tijd	Piet	Tijd	Tijd	Tijd	Kees	Tijd	Tijd	Tijd
Kees	Tijd	Tijd	Tijd	Henk	Tijd	Tijd	Tijd	Henk	Tijd	Tijd	Tijd
Henk	Tijd	Tijd	Tijd	Naam	Tijd	Tijd	Tijd	Naam	Tijd	Tijd	Tijd

Behalve de koppen Tijd is daaronder Tijd dus een tijdstip.

Zoals je ziet zijn het drie sets met dezelfde data naast elkaar. Echter de namen gaan op een gegeven moment verspringen.

Nu krijg ik het middels macro's en vba niet voor elkaar om alle data van Jan te laten beginnen op één lijn. Als volgt:

Naam	Tijd	Tijd	Tijd	Naam	Tijd	Tijd	Tijd	Naam	Tijd	Tijd	Tijd
Jan	Tijd	Tijd	Tijd	Jan	Tijd	Tijd	Tijd
Piet	Tijd	Tijd	Tijd	Piet	Tijd	Tijd	Tijd	Piet	Tijd	Tijd	Tijd
Kees	Tijd	Tijd	Tijd

Ik heb overal gezocht, gegoogled en nagedacht, maar ik kom niet tot een oplossing.

Iemand?

[F_J_K]

Dat kan zeker met een paar loopjes in een macro (en vast ook zondr, maar dat terzijde) worden gedaan: drie keer sorteren en dan voor elke naam in de eerste kolom, de tweede en derde langslopen. Waar loop je vast, wat is je huidige code?

[DouweEgberts]

Ik loop vast bij het ontwerp. Ik hoef de code niet voorgekauwd te krijgen, maar ik kan geen routine verzinnen die dit doet.

Ik beheers VBA wel, alleen mijn ontwerpskills zijn niet toereikend

[Anoniem: 113297]

opsplitsen in deelproblemen, zodat je er beter zicht op krijgt.
- bewaar de oospronkelijke tabel als bronwaarde
- maak eerst een lijst met unieke namen (met 'uitgebreide filter', al dan niet omgezet in code).
deze unieke lijst herhaal je drie keer in de juiste kolom
- zoek in deze nieuwe tabel de bij de naam overeenstemmende tijdswaarde in de oude tabel mbv. vertikaal zoeken (formule vlookup of vert.zoeken)
bovenstaande deelstappen kan je geheel of gedeeltelijk automatiseren met vba.

[DouweEgberts]

Ik denk dat ik mijn tabel beter moet omschrijven.

Ik heb een tabel met:

Naam # Date # Date # Date

Echter onder één naam, kan onder één kolom datum, meerdere tijden staan. Dus:
Naam # Date # Date # Date
-------------------------------------------
Naam # Tijd # Tijd # Tijd
.........# Tijd # Tijd # Tijd
........ # Tijd # ..... # Tijd
Naam # Tijd # Tijd # Tijd
.........# Tijd # Tijd # Tijd
........ # Tijd # ..... # Tijd

Dit zijn dus de verschillende tijden van 2 namen bij drie data.

Zo heb ik van alle namen, de tijden per 1 week en daar plak ik er vier van naast elkaar, dus:

Naam # Tijd # Tijd # Tijd | Naam # Tijd # Tijd # Tijd | Naam # Tijd # Tijd # Tijd |
.........# Tijd # Tijd # Tijd | .........# Tijd # Tijd # Tijd | .........# Tijd # Tijd # Tijd |
........ # Tijd # ..... # Tijd | ........ # Tijd # ..... # Tijd | ........ # Tijd # ..... # Tijd |
Naam # Tijd # Tijd # Tijd | Naam # Tijd # Tijd # Tijd | Naam # Tijd # Tijd # Tijd |
.........# Tijd # Tijd # Tijd | .........# Tijd # Tijd # Tijd | .........# Tijd # Tijd # Tijd |
........ # Tijd # ..... # Tijd | ........ # Tijd # ..... # Tijd | ........ # Tijd # ..... # Tijd |
Naam # Tijd # Tijd # Tijd | Naam # Tijd # Tijd # Tijd | Naam # Tijd # Tijd # Tijd |
.........# Tijd # Tijd # Tijd | .........# Tijd # Tijd # Tijd | .........# Tijd # Tijd # Tijd |
........ # Tijd # ..... # Tijd | ........ # Tijd # ..... # Tijd | ........ # Tijd # ..... # Tijd |

Elke naam komt per set van vier kolommen één keer voor. Echter naarmate de lijst langer wordt, komt niet elke keer dezelfde naam meer op één rij doordat niet iedereen op een datum dezelfde hoeveelheid tijden heeft staan.

Die uitlijning heb ik nodig voor de rest van mijn gecompliceerde vba script.

[F_J_K]

Hoe zou je dit op papier doen?

Ik zou trouwens juist de originele tabellen als uitgangspunt nemen. Dat lijkt me veel simpeler om te gebruiken omdat het al veel meer gestructureerd is?
0) reservekopie
1) Sorteer als nodig, dan per naam
1a) eerste tijd staat al goed
1b) tot er een nieuwe naam komt:
1b1) verplaats data naar de eerstvolgende lege kolommen bij de naam
1b2) volgende tijdenset
1c) volgende naam

Los hiervan: als je vooral met datamanipulatie bezig bent, wil je misschien helemaal geen Excel+VBA gebruiken, maar een tool dat er meer voor geschikt is zoals misschien een RDBMS.

[Anoniem: 113297]

in geval van meerdere tijden kan je geen vertikaal zoeken gebruiken (of toch niet op eenvoudige manier).

dan lijkt het me beter eerst te zoeken wie de meeste voorkomens heeft en daar de tabellayout op afstemmen, nog steeds rekening houden met een unieke lijst van namen.
daarna alle kolommen afzoeken (met vba in dit geval) om de overeenstemmende namen & tijden te matchen.

de rdbms-opmerking blijft relevant, maar bewaring van de specifieke layout is misschien belangrijk voor TS.