|
Hallo,
mein Problem betrifft folgendes:
Ich möchte aus einer Tabelle (links), die Werte in eine neue Tabelle (rechts) kopieren und transponieren.
 
Was ich bisher gemacht habe:
Sub Transponieren()
Dim x As Integer, y As Integer
For x = 47 To 247 Step 1 ' 47 ist Startzeile und 247 Endzeile ( kann je nach Lage der Tabelle angepasst werden)
For y = 1 To 600 Step 3 ' wählt die leere Zelle in Spalte W aus
Cells(46 + y, 23).Value = Worksheets("Tabelle1").Cells(x, 6).Value ' Wert Ai kopieren, die 23 bedeuetet dass es in Spalte W kopiert wird
Cells(47 + y, 23).Value = Worksheets("Tabelle1").Cells(x, 8).Value ' Wert Iyi kopieren
Cells(48 + y, 23).Value = Worksheets("Tabelle1").Cells(x, 9).Value ' Wert ITi kopieren
Next y
Next x
End Sub
Wie man sieht, geht mein Makro von einer festen Startposition in der Tabelle aus und ist nicht wirklich flexibel. Das ist aber erst mal weniger wichtig für mich.
|