Artikel Attribute Liste umkehren

[Kaennchen]

Hallo,

ich habe folgendes Problem:

Ausgangslage ist eine Liste von Artikeln mit Attributen und dazugehörigen Werten. Anbei ein Beispiel. Die eigentliche Liste ist sehr viel länger.
   

Daraus brauche ich eine Tabelle in der der Artikel nur einmalig vorkommt und die Attribute zu Spalten werden und diese auch nur einmal vorkommen.
   

Ich hoffe ich konnte es verständlich erklären. Ich bin damit leider nicht weiter gekommen.

[snb]

Code:

Sub M_snb()
  sn = Sheet1.Cells(1).CurrentRegion
  sp = Split("Artikel Höhe Breite Länge Tiefe Rand Güte Bezeichnung")
 
  With CreateObject("scripting.dictionary")
      .Item("Artikel") = sp
      For j = 2 To UBound(sn)
        ReDim sq(UBound(sp))
        sq(0) = sn(j, 1)
     
        If .exists(sn(j, 1)) Then sq = .Item(sn(j, 1))
        sq(Application.Match(sn(j, 2), sp, 0) - 1) = sn(j, 5)
        .Item(sn(j, 1)) = sq
      Next
   
    Sheet1.Cells(1, 7).Resize(.Count, UBound(sq) + 1) = Application.Index(.items, 0, 0)
  End With
End Sub

[Kaennchen]

Herzlichen Dank schonmal. 
Vielleicht könnten sie mir das Programm in das Excel mit einfügen, da ich dabei noch einen Fehler bekomme (Ich kenne mich mit VBA dabei nicht wirklich aus) .
Einen Zusatz noch, die Attribute sind nicht fest, es kann noch viel mehr geben). Die Zieltabelle muss also dynamisch aufgebaut werden.

[snb]

Damit wünsche ich dir vielen Erfolg.
Du hast schon 98% der Lòsung empfangen.