*

Help!

PC-Problemen?
De vrijwilligers van Oplossing.be zoeken gratis met u mee!

Hulp bij posten

Recente topics

Pagina's: [1]   Omlaag

Auteur Topic: Transponeren  (gelezen 10666 keer)

0 leden en 1 gast bekijken dit topic.

Offline Catriona

  • Nieuw lid
  • Berichten: 1
  • Geslacht: Vrouw
  • Hey, ik ben nieuw hier !
Transponeren
« Gepost op: 19 september 2023, 22:04:42 »
Hallo iedereen,

Weten jullie hoe ik van weergave 1 naar weergave 2 ga om een snelle manier?

Bedankt!
Gelogd

Offline MollyVH

  • Excel-Expert
  • Oplosser
  • *****
  • Berichten: 847
Re: Transponeren
« Reactie #1 Gepost op: 19 september 2023, 23:26:16 »
Hallo Catriona,

Welkom op Oplossing.be !

Wat je daar vraagt is niet letterlijk rijen en kolommen wisselen, anders was het wel héél makkelijk geweest.
Een macrootje is hier dus op zijn plaats.
Om ervoor te zorgen dat je mijn werk makkelijk kan controleren ;) heb ik het resultaat vanaf kolom E laten neerzetten.

Mvg,
Molly
Gelogd
Windows 11 Home NLD 64bit
11th Gen Intel(R) Core(TM) i7-11700 @ 2.50GHz 2496
Aspire TC-1660
Intel(R) UHD Graphics 750 1024MB
476 GB SSD KINGSTON OM8PCP3512F-AA
1863 GB HD Seagate ST2000DM008-2FR102
Office 2021 Professional Plus NLD 64bit

Offline snb

  • Lid
  • *
  • Berichten: 30
Re: Transponeren
« Reactie #2 Gepost op: 20 september 2023, 20:19:45 »
Code: [Selecteer]
Sub M_snb()
   sn = Sheet1.Cells(1).CurrentRegion
   y = (UBound(sn) - 1) * (UBound(sn, 2) - 1)
   ReDim sp(y, 2)
   
   sp(0, 0) = sn(1, 1)
   sp(0, 1) = "Item"
   sp(0, 2) = "Maat"
   For j = 1 To UBound(sp)
     sp(j, 0) = sn((j - 1) \ (UBound(sn, 2) - 1) + 2, 1)
     sp(j, 1) = sn(1, (j - 1) Mod (UBound(sn, 2) - 1) + 2)
     sp(j, 2) = sn((j - 1) \ (UBound(sn, 2) - 1) + 2, (j - 1) Mod (UBound(sn, 2) - 1) + 2)
   Next
   
   sheet1.Cells(8, 5).Resize(UBound(sp) + 1, UBound(sp, 2) + 1) = sp
End Sub
Gelogd

Offline JEC

  • Excel-Expert
  • Ervaren lid
  • *****
  • Berichten: 422
Re: Transponeren
« Reactie #3 Gepost op: 21 september 2023, 09:03:00 »
Power Query

Code: [Selecteer]
let
    Source = Excel.CurrentWorkbook(){[Name="Table1"]}[Content],
    unPiv = Table.UnpivotOtherColumns(Source, {"Medewerker"}, "Attribute", "Value")
in
    unPiv
Gelogd

Offline dizzl

  • Ambassadeur
  • *****
  • Berichten: 2.345
  • I've Upped my standards,now,up yours!
Re: Transponeren
« Reactie #4 Gepost op: 21 september 2023, 19:49:28 »
is dat niet gewoon kopieren >> rechtermuisknop => plakken => transponeren?
Gelogd
Systeem  : Intel Core i5-4440 3.1Ghz, 3.1GHz 16Giga Ram 64Bits
Software : Windows 10 professional, Avira, Office 2016 Professional

Offline JEC

  • Excel-Expert
  • Ervaren lid
  • *****
  • Berichten: 422
Re: Transponeren
« Reactie #5 Gepost op: 21 september 2023, 19:50:44 »
Ik zou zeggen probeer het eens ;)
Gelogd
Pagina's: [1]   Omhoog
 


www.combell.com