Tabelle; Spalten/Zeilen ändern - aber nicht transponieren

[b-trilogie]

Hallo zusammen,

ich bin neu hier im Forum.
Habe schon des öfteren mitgelesen und konnte schon viel Wissen aus euren Beiträgen beziehen.

Nun habe ich aber ein Problem, für das ich keine Lösung finden kann.

Ich habe mal ein kleines Beispiel als Grafik angehängt.
Die Ursprungstabelle soll zu der Ergebnistabelle werden.

Ich bin mir sicher, dass irgendjemand eine Lösung dafür hat.

Danke für eure Mühe und Rückmeldungen!

Gruß
b-trilogie

[BoskoBiati]

Hallo,

wenn Du das mit einer Datei darstellen könntest, könnte man was basteln.

[b-trilogie]

Datei anbei...

[BoskoBiati]

Hallo,

z.B. so:

Arbeitsblatt mit dem Namen 'Tabelle1'
	A	B	C	D	E	F	G	H	I	J
1	Name	Ort	Größe	data1	data1a	data2	data2a	data3	data3a	Währung
2	Max	F	1,8	100	100a	99	99a	101	101a	EUR
3	Fritz	S	1,6	105	105a					EUR
4	Karl	B	1,7	102	102a	103	103a			EUR
5
6
7	Name	Ort	Größe	data1	data1a	data2	data2a	data3	data3a	Währung
8	Max	F	1,8	100	100a					EUR
9	Max	F	1,8	99	99a					EUR
10	Max	F	1,8	101	101a					EUR
11	Fritz	S	1,6	105	105a					EUR
12	Karl	B	1,7	102	102a					EUR
13	Karl	B	1,7	103	103a					EUR

Zelle	Formel
A8	=A2
A9	=WENN(ANZAHL2(INDEX($D$2:$I$4;VERGLEICH(A8;$A$2:$A$4;0);))/2>ZÄHLENWENN($A$8:$A8;$A8);A8;INDEX($A$2:$A$4;VERGLEICH(A8;$A$2:$A$4;0)+1))
B9	=SVERWEIS($A9;$A$2:$C$4;SPALTE(B$1);0)
D9	=SVERWEIS($A9;$A$2:$I$4;SPALTE(B$1)+ZÄHLENWENN($A$8:$A9;$A9)*2;0)

Diese Tabelle wurde mit Tab2Html (v2.4.1) erstellt. ©Gerd alias Bamberg

Formeln können nach rechts und ab Zeile 9 auch nach unten kopiert werden.

[b-trilogie]

Vielen Dank, Edgar!
Du hast mir damit wirklich sehr geholfen.

Gruß,
b-trilogie

[snb]

In VBA:

Code:

Sub M_snb()
   sn = Sheet1.Cells(1).CurrentRegion
   
   With CreateObject("scripting.dictionary")
        For j = 2 To UBound(sn)
           For jj = 4 To 8 Step 2
              If sn(j, jj) <> "" Then .Item(.Count) = Array(sn(j, 1), sn(j, 2), sn(j, 3), sn(j, jj), sn(j, jj + 1), sn(j, UBound(sn, 2)))
           Next
        Next
   
        Sheet1.Cells(20, 1).Resize(.Count, 6) = Application.Index(.items, 0, 0)
    End With
End Sub