Daten aus Spalte flexibel anordnen

[Matschomat]

Guten Tag, 
Ich habe folgendes Problem. Ich möchte gerne Daten welche sich in einer Spalte befinden in einen Block aus mehreren Spalten auswerten. Das Problem ist, dass die Spaltenanzahl variabel sein muss. 
Wie auf dem Screenshot. 
Links sind ist mein Datensatz. 
Dann eine kurze Tabelle über die benötigte Spaltenanzahl und dann der angeordnete Block. Im Beispiel werden die Daten der Reihe nach auf 10 Spalten aufgeteilt. Gibt es da eine Funktion die mir das erleichtern könnte?
Lg

---

[shift-del]

Moin

Da gibt's doch was bei excelformeln.nicht-mehr-de.

[WillWissen]

Hi,

Bilder helfen nicht - lad bitte eine .xlsx hoch. Sieht so dein Original (vom Aufbau her) aus? Ohne Überschriften, einfach irgendwohin ein paar Zahlen geklatscht?

[Matschomat]

So, es hat etwas gedauert. 
In der Tabelle sheet1 ist der komplette Datensatz. In Tabelle 3 die Spaltenanzahl der zugehörigen Größe und in Tabelle 2 schon mal eine Auswertung wie sie fertig aussehen sollte, also grafisch, nur eben nicht automatisiert. 
Bitte danke

[Raoul21]

Keine Ahnung, was Brett und Lage ist. Bin kein Tischler oder Schreiner.

Dieses Makro, eingefügt in das Modul Tabelle2 in Deiner Tabelle erzeugt automatisch einen Block, sobald du eine Zahl (z.B. 8) in C1 in Tabelle2 einträgst, mit 8 Spalten.

Code:

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim k As Range, v As Range, n As Long
    If Intersect(Target, Range("C1")) Then
        Set k = Range("A3")        'Erste Zelle Liste
        Set v = Range("C2")        'erste Zelle Block
        Set k = Range(k, k.End(xlDown))
        Set v = v.Resize(Int(k.Rows.Count / Range("C1")) + 1, Range("C1"))
        Application.EnableEvents = False
        v.Resize(v.Rows.Count + 2, v.Columns.Count + 2).Clear
        For n = 1 To k.Rows.Count
            v(n).Value = k(n)
        Next n
        Application.EnableEvents = True
    End If
End Sub

LG