Tabel-rangschikken in andere opzet dmv formule of draaitabel

[spoelstra]

Vraagstelling staat in bijgevoegd document.

Alvast hartelijk dank,

Jaap

 

[WHER]

Zie bijlage voor een mogelijke aanpak, let op sommige formules zijn matrixformules dus inbrengen met ctrl+shift+enter;

 

[snb]

met VBA:

Sub M_snb()
   Sheet1.Cells(1).CurrentRegion.Sort Sheet1.Cells(1, 1), , Sheet1.Cells(1, 2), , , , , 1
   sn = Sheet1.Cells(1).CurrentRegion
   
   With CreateObject("scripting.dictionary")
      For j = 2 To UBound(sn)
         .Item(sn(j, 1)) = .Item(sn(j, 1)) & "|" & sn(j, 3)
      Next
      
      For j = 0 To .Count - 1
        st = Split(.keys()(j) & .items()(j), "|")
        Sheet1.Cells(5 + j, 7).Resize(, UBound(st) + 1) = st
      Next
   End With
End Sub

 

[spoelstra]

Hallo wher,

Dat is een pittige , Die schut ik niet zo uit de mauw als ik weer eens een table moet omshuiven.

Is het ook mogelijk met een draaitabel?

Graag een reactie,

Jaap

 

[spoelstra]

Hallo Snb,

Dank je voor de routine. Kan ik deels begrijpen en toepassen.

Jaap

 

[WHER]

Een poging met draaitabel, de chronologische rangschikking volgens periode hangt wel af van de volgorde in kolom B, dat wordt niet opnieuw berekend.

 

[spoelstra]

Hallo Wher,

Helemaal Top! Deze kan ik overal op toepassen . Waar een hulpkolom al niet goed voor is.

Hartelijk dank .

Jaap