Hallo,
Ik ben bezig om een tabel welke onhandig is opgezet om te bouwen naar andere vorm;
Het is nu als volgt:
En ik wil 'm ombouwen naar:
Dan kan ik daarna met draaitabellen en extra info per regel beter inzichtelijk maken wat status is dan hoe de tabel nu is opgebouwd in plaatje 1.
Het gaat om ca 500 regels die ik moet ombouwen met 20 kolommen naar rechts dus het voorbeeld is redelijk versimpeld. Het principe komt hiermee wel duidelijk naar voren.
Het idee van de loop is dus:
- pak op Blad1 de 1e regel tekst (los van titels), kopieer deze en plaats deze op de 1e vrij cel op Blad 2;
- kopieer deze waarde dan nog eens naar de volgende 4 regels
- plaats dan middels transponeer de namen van de kolommen 1-5
- plaats dan middels transponeer de waarden die achter deze velden horen te staan;
- ga dan terug naar blad1
- ga door naar nr 2 etc etc totdat tot en met nr 15 is omgezet naar de nieuwe tabel op blad 2
- opmaak is niet belangrijk.
Ik ben zelf ondertussen al aardig wat filmpjes en oefenen verder maar merk dat mijn kennis te ver is weggezakt. Voor de echte VBA-hero zou dit een dubbele loop met een paar transponeer trucjes zo gepiept moeten zijn. Toch? Of toch lastiger dan ik overzie?
Wie o wie kan helpen! Mijn dank is groot.
Ik ben bezig om een tabel welke onhandig is opgezet om te bouwen naar andere vorm;
Het is nu als volgt:
Nr | Omschrijving | Item 1 | Item 2 | Item 3 | Item 4 | Item 5 |
1 | Voorbeeld tekst 1 | 5 | 4 | 3 | 1 | |
2 | Voorbeeld tekst 2 | 4 | 4 | 2 | ||
3 | Voorbeeld tekst 3 | 5 | 3 | |||
4 | Voorbeeld tekst 4 | 3 | ||||
5 | Voorbeeld tekst 5 | 5 | 4 | |||
6 | Voorbeeld tekst 6 | 3 | ||||
7 | Voorbeeld tekst 7 | |||||
8 | Voorbeeld tekst 8 | 5 | 5 | |||
9 | Voorbeeld tekst 9 | |||||
10 | Voorbeeld tekst 10 | 5 | 3 | 3 | ||
11 | Voorbeeld tekst 11 | 3 | ||||
12 | Voorbeeld tekst 12 | 3 | 4 | 3 | ||
13 | Voorbeeld tekst 13 | |||||
14 | Voorbeeld tekst 14 | 3 | 4 | |||
15 | Voorbeeld tekst 15 | 2 | 4 |
En ik wil 'm ombouwen naar:
Nr | Omschrijving | Item | Waarde |
1 | Voorbeeld tekst 1 | 1 | 5 |
1 | Voorbeeld tekst 1 | 2 | 4 |
1 | Voorbeeld tekst 1 | 3 | |
1 | Voorbeeld tekst 1 | 4 | 3 |
1 | Voorbeeld tekst 1 | 5 | 1 |
2 | Voorbeeld tekst 2 | 1 | 4 |
2 | Voorbeeld tekst 2 | 2 | 4 |
2 | Voorbeeld tekst 2 | 3 | 2 |
2 | Voorbeeld tekst 2 | 4 | |
2 | Voorbeeld tekst 2 | 5 | |
3 | Voorbeeld tekst 3 | 1 | 5 |
3 | Voorbeeld tekst 3 | 2 | |
3 | Voorbeeld tekst 3 | 3 | |
3 | Voorbeeld tekst 3 | 4 | 3 |
3 | Voorbeeld tekst 3 | 5 | |
4 | Voorbeeld tekst 4 | 1 | 5 |
4 | Voorbeeld tekst 4 | 2 | |
4 | Voorbeeld tekst 4 | 3 | 4 |
4 | Voorbeeld tekst 4 | 4 | |
4 | Voorbeeld tekst 4 | 5 |
Dan kan ik daarna met draaitabellen en extra info per regel beter inzichtelijk maken wat status is dan hoe de tabel nu is opgebouwd in plaatje 1.
Het gaat om ca 500 regels die ik moet ombouwen met 20 kolommen naar rechts dus het voorbeeld is redelijk versimpeld. Het principe komt hiermee wel duidelijk naar voren.
Het idee van de loop is dus:
- pak op Blad1 de 1e regel tekst (los van titels), kopieer deze en plaats deze op de 1e vrij cel op Blad 2;
- kopieer deze waarde dan nog eens naar de volgende 4 regels
- plaats dan middels transponeer de namen van de kolommen 1-5
- plaats dan middels transponeer de waarden die achter deze velden horen te staan;
- ga dan terug naar blad1
- ga door naar nr 2 etc etc totdat tot en met nr 15 is omgezet naar de nieuwe tabel op blad 2
- opmaak is niet belangrijk.
Ik ben zelf ondertussen al aardig wat filmpjes en oefenen verder maar merk dat mijn kennis te ver is weggezakt. Voor de echte VBA-hero zou dit een dubbele loop met een paar transponeer trucjes zo gepiept moeten zijn. Toch? Of toch lastiger dan ik overzie?
Wie o wie kan helpen! Mijn dank is groot.
Bijlagen
Laatst bewerkt: