Ich versuch grad etwas VBA anzuwenden, aber leider scheitere ich, vielleicht habt ihr einen kleinen Tipp für mich:
Ich habe eine Tabelle in Zeilen
.............Spalte1.Sp2,SP3,SP4,SP5, SP6, SP7
Zeile 1:.....Namen1,..A,..B,..C,..D,...E,...F
Zeile 2:.....Namen2,..A,..B,. C,..D,...E,...F
Ich würde es aber gerne umbauen in
Name1 A, B
Name1 C, D
Name1 E, F
Name 2 A, B
Etc.
Ich schaffe leider mit meinem Code nur bis A,B
Sub test()
Dim myLastRow As Long
Dim myFirstFreeRow As Long
Dim myRow As Long
Dim myMaximum As Long
Dim myCount As Long
With Sheets("Table")
' letzte gefüllte Zeile in Table Spalte I ermitteln
myLastRow = .Cells(Rows.Count, 9).End(xlUp).Row
' Schleife für alle Einträge in Table Spalte I
For myRow = 16 To myLastRow
' Anzahl Durchläufe
myMaximum = 2
' Schleife für die Anzahl
For myCount = 1 To myMaximum
' erst noch die erste freie Zeile in Tabelle1 Spalte B ermitteln
With Sheets("Tabelle1")
myFirstFreeRow = .Cells(Rows.Count, 2).End(xlUp).Row + 1
End With
For i = 1 To 2
' Wert von Table Spalte E nach Tabelle2 Spalte E übertragen
Sheets("Tabelle1").Cells(myFirstFreeRow, 2).Value = .Cells(myRow, 9). _
_
_
_
_
Value
Sheets("Tabelle1").Cells(myFirstFreeRow, 2 + i).Value = .Cells(myRow, _
_
_
_
_
9 + i).Value
Next i
Next myCount
Next myRow
End With
End Sub
Güsse Kisselstein