Excel tabel draaien

[TobyR]

Ik heb voor mijn werk een excel bestand dat ik telkens gebruik om alles mooi te overlopen van wat er in welke ruimte moet komen van elektrische voorzieningen.

Graag zou ik dit overzicht dan per ruimte draaien, en enkel per ruimte onder elkaar hebben te staan wat er nodig is voor deze ruimte, zodat ik deze in mijn CRM programma kan importeren.

Addertjes die mij het petje teboven gaan:
Ik zou graag de onderdelen waar er niets ingevuld staat in de cellen achterwege willen laten.

Zie foto's om te verstaan wat ik bedoel, is moeilijk uit te schrijven.

Wie zou er mij kunnen helpen?

 

[JEC.]

Hiervoor zul je je bestand moeten plaatsen

 

[TobyR]

Hierbij het bestand

 

[VenA]

Met een macro. Zorg ervoor dat Blad2 bestaat.

Sub VenA()
  ar = Sheets("Blad1").Range("A1:AJ" & Sheets("Blad1").Cells(Rows.Count, 1).End(xlUp).Row)
  ReDim ar1(1, 0)
  For j = 3 To UBound(ar) - 1
    If ar(j, 1) <> "" Then
      ar1(0, t) = ar(j, 1)
      t = t + 1
      ReDim Preserve ar1(1, t)
      For jj = 2 To UBound(ar, 2)
        If (ar(j, jj)) <> "" Then
          ar1(0, t) = ar(1, jj)
          ar1(1, t) = ar(j, jj)
          t = t + 1
          ReDim Preserve ar1(1, t)
        End If
      Next jj
    End If
  Next j
  Sheets("Blad2").Cells(1).Resize(t, 2) = Application.Transpose(ar1)
End Sub

 

[TobyR]

Thanks!!