HERBERS Excel-Forum - das Archiv
Problem mit Transponieren
Michael

Hallo beisammen,
Ich hab ein Problem mit dieser Tabelle: https://www.herber.de/bbs/user/65712.xlsx
und zwar hätte ich gerne das Spalte A so stehen bleibt, und ab spalte B "transponiert" wird. Jetzt ist das Problem das ich die 11 Spaltennamen ab der Spalte B, pro Artikelnummer in Spalte A, untereinander stehen haben will und dann in Spalte C jeweils die Merkmale aus den restlichen Spalten. Also sollte dann in Spalte A jede Artikelnummer 11 mal stehen. Ich hoffe es ist einigermaßen zu verstehen was ich meine, ich hab auf dem 2. Sheet mal das Ergebnis der ersten 2 Artikel manuell aufgeführt zum bessern Verständnis.
Es wär echt super wenn mir jemand helfen könnte. ich komm da einfach nicht weiter.
Danke und Gruß Michael

hier mal ein Versuch ... als .xls
Matthias

Hallo Michael
Wenn Du Deine Datei als .xls hochlädtst, hast eher Chancen auf mehr Hilfe.
Es hat nicht jeder XL2007
hier mal als Ansatz:
https://www.herber.de/bbs/user/65715.xls
Gruß Matthias
AW: hier mal ein Versuch ... als .xls
Michael

Sorry, hier das ganze nochmal als .xls https://www.herber.de/bbs/user/65725.xls
AW: Problem mit Transponieren
Armin

Hallo Michael,
ich habe zur "Abwechslung" eine Lösung mit VBA.
Einfach zur Seite "T1" wechseln.
https://www.herber.de/bbs/user/65721.xlsm
Gruß Armin
AW: Problem mit Transponieren
Michael

Hallo Armin,
vielen Dank erst mal, ist ja echt genial wie schnell man hier geholfen bekommt!!!
Das schaut ja schon richtig gut aus, nur stehen jetzt immer die gleichen Merkmale bei den unterschiedlichen Artikeln. Ich bräuchte allerdings immer die Zugehörigen Zeilen aus dem Ursprungssheet zu jedem Artikel.
vielen Dank noch mal!
Gruß Michael
Korrektur
Armin

Hallo Michael,
habe leider etwas übersehen aber das kannst Du warscheinlich selbst ändern:
Dx.Offset(Col, 1).Value = Mx.Offset(Dx.Row - 1, 0).Value ändern in
Dx.Offset(Col, 1).Value = Mx.Offset(Nx.Row - 1, 0).Value
also nur das Dx in Nx ändern dann müsste es klappen.
Gruß Armin
AW: Korrektur
Michael

Genial!!!, vielen Dank Du hast mir den Tag gerettet!!
Gruß Michael