|
Hallo zusammen,
ich habe eine Tabelle (eine Bewertungsmatrix), welche gerne in Zeilen und Spalten auflösen möchte.
Sub MatrixAufloesen()
lgSP = Cells(1, Columns.count).End(xlToLeft).Column
lgLZ = Tabelle1.Cells(Rows.count, 1).End(xlUp).Row
'Zeilen auslesen und untereinanderreihen
v = 1
For i = 2 To lgLZ
For Z = (9 * v) To (lgLZ * v)
Cells(Z, 6).Value = Cells(i, 1).Value
Next
v = v + 1
Next
'Spalten auslesen und untereinanderreihen
g = 1
For f = 1 To lgSP
For n = (9 * g) To (lgSP * g)
Cells(n, 7).Value = Cells(1, f).Value
Next
g = g + 1 'das soll eig. der Zäjler sein, damit die neuen Werte unter die alten Werte gereiht werden
Next
End Sub
Leider bekomme ich da ziemlich viel Stuß raus mit meinem Code. Hier die Datei, wie ich es gerne haben möchte (SOLL) und was bei meinem jetztigen Code herauskommt (IST):
https://smuehl.de/nextcloud/s/x6r9n43HYJCNwDn
Ich würde mich freuen, wenn jmd. einen Ansatz hat, warum das bei mir so anders herauskommt, als ich möchte.
VG und Danke schonmal.
|