Tabelle transponieren special

17/09/2008 - 10:30 von Libelle | Report spam
Liebe Excel-Gemeinde,

hoffe das ist die richtige Anrede.

Seit ein paar Nàchten steh ich hier Kopf. Ich hab schon mal
vorsorglich alles zum Thema rausgesucht und gelsen, was mich der
Lösung etwas nàher bringen könnte, aber leider hat es entweder nicht
gepasst oder nicth funktioniert.
Somit seh ich gerade alle meine Felle und meinen Jahresurlaub
davonschwimmen und vor allem seh ich mich über hunderten von Tabellen
sitzen und eine Tab nach der anderen hàndisch aufbereiten :(.

Ok - vielleicht hat ja jemand in diesem Forum die zündende Idee.

Was ich vor allem gefunden habe ist die exakte Beschreibung meines
Problems - allerdings in einem Access-Forum:

Header |Kriterium1 | Kriterium2 | Kriteríum3
Merkmal1 | Wert1_1 | Wert1_2 | Wert1_3
Merkmal2 | Wert2_1 | Wert2_2 | Wert2_3
Merkmal3 | Wert3_1 | Wert3_2 | Wert3_3

In der Realitàt stehen in der Kopfzeile ca. 30 ISO Làndercodes. Die
Merkmale sind entsprechenden Units zugewiesen und die Werte pro Land/
pro Unit

Ich brauche aber um es einer anderen DB zugànglich zu machen diese
Struktur

Merkmal1 | Bezeichnung Kriterium1 | Wert1_1
Merkmal1 | Bezeichnung Kriterium2 | Wert1_2
Merkmal1 | Bezeichnung Kriterium3 | Wert1_3
Merkmal2 | Bezeichnung Kriterium1 | Wert2_1
...
Merkmal3 | Bezeichnung Kriterium3 | Wert3_3


Würde real bedeuten, daß die Unit so oft wiederholt wird wie es
Làndercodes gibt also ca. 30 mal und die entsprechenden Werte
dahinterstehen.

Wie gesagt, ich wàre euch àußerst dankbar, für eine gute Idee, da ich
schon alles was ich Excel-technisch aufzubieten habe ausprobiert
habe.

Vielen Dank

Linda Weinbreicht, Zürich
 

Lesen sie die antworten

#1 Claus Busch
17/09/2008 - 12:28 | Warnen spam
Hallo Linda,

Am Wed, 17 Sep 2008 01:30:10 -0700 (PDT) schrieb Libelle:

Header |Kriterium1 | Kriterium2 | Kriteríum3
Merkmal1 | Wert1_1 | Wert1_2 | Wert1_3
Merkmal2 | Wert2_1 | Wert2_2 | Wert2_3
Merkmal3 | Wert3_1 | Wert3_2 | Wert3_3

Ich brauche aber um es einer anderen DB zugànglich zu machen diese
Struktur

Merkmal1 | Bezeichnung Kriterium1 | Wert1_1
Merkmal1 | Bezeichnung Kriterium2 | Wert1_2
Merkmal1 | Bezeichnung Kriterium3 | Wert1_3
Merkmal2 | Bezeichnung Kriterium1 | Wert2_1
...
Merkmal3 | Bezeichnung Kriterium3 | Wert3_3



probiers mal mit folgendem Code. Er übertràgt dir vom aktiven Blatt nach
Tabelle2. Du müsstest also eventuell den Blattnamen àndern:

Sub Transponieren()

Dim i As Long
Dim j As Integer
Dim n As Long
Dim LRow As Long
Dim LCol As Long

With ActiveSheet
LRow = .Cells(Rows.Count, 1).End(xlUp).Row
n = 1

For i = 2 To LRow
LCol = .Cells(i, Columns.Count).End(xlToLeft).Column
For j = 2 To LCol
Sheets("Tabelle2").Cells(n, 1) = .Cells(i, 1)
Sheets("Tabelle2").Cells(n, 2) = .Cells(1, j)
Sheets("Tabelle2").Cells(n, 3) = .Cells(i, j)
n = n + 1
Next j
Next i

End With

End Sub

Mit freundlichen Grüssen
Claus Busch
Win XP Prof SP2 / Vista Ultimate
Office 2003 SP2 / 2007 Ultimate

Ähnliche fragen