Clever-Excel-Forum

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.
[attachment=39396]

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

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

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

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.

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

Kaennchen

snb

Kaennchen

snb