Data in een tabel spiegelen en draaien

[Joyce1981]

Hoi, Even een vraag
Ik heb al een aantal antwoorden gevonden die in de richting komen maar net niet helemaal.

Ik heb in een excel de volgende tabel (data is fictief)
A B C
1 a 1 +
2 b 2 =
3 c 3 %
4 d 4 ?


Nou wil ik in cel A1 de waarde uit cel C4 en in C1 waarde uit A4 etc.
Hoe krijg ik dit voor elkaar?

Alvast bedankt!

 

[Niels28]

een voorbeeldje voor 4 kolommen.

Sub test()
For Each cl In Sheets(1).Range("A:A").SpecialCells(2)
sq = cl.Resize(1, 4)
For i = 4 To 1 Step -1
cl.Offset(0, 4 - i).Value = sq(1, i)
Next
Next
End Sub

Niels

 

[wampier]

Volgens mij is er geen standaard oplossing voor. Het kan waarschijnlijk wel met een macro. Is het altijd hetzelfde bereik en dezelfde grootte?

 

[Joyce1981]

Het bereik kan steeds anders zijn en soms ook voor veel meer dan 4 kolommen en/of 4 rijen.
Kan het ook zonder macro's? Deze zijn door het bedrijf uitgeschakeld en krijg ze niet aan.

 

[Niels28]

Zonder macro:
Zet in E1 =D1 in F1 = C1 in G1 = B1 in H1=A1.
Sleep de formules naar onder, kopieer de de gevens in kolom E tm F plakken speciaal waarden.
Verwijder kolom A tm D.

Niels

 

[Joyce1981]

Helaas waren de antwoorden niet wat ik zocht maar heb de oplossing gevonden:

Een hulp kolom en rij toegevoegd boven de tabel en aan de zijkant. Hierin 1 2 3 4 etc gevuld.
Vervolgens gesorteerd op kolom van groot naar klein.
Zelfde selectie gesorteerd op rij (sorteren, opties) van groot naar klein.
Daarna hulp kolom en rij verwijderen.

Op deze manier maakt het bereik niet uit.
Bedankt voor de hulp en het meedenken.