Werte von mehreren Spalten in eine Spalte kopieren

[4pf3lb4um]

Hallo zusammen.

Ich habe folgendes Problem, dass meine Messdaten in folgender Form darliegen:



ich bräuchte meine Daten aber in folgender Form:



gibt es irgendeine Möglichkeit das schneller zu machen, als jede Spalte unter die linke zu kopieren?

vielen Dank im Voraus

LG

[4pf3lb4um]

keiner eine idee?

oder keiner eine ahnung was ich meine? ^^

[4pf3lb4um]

Sub name()

Dim spalte As Long
Dim letzte As Long
Dim i As Long
With Sheets("Tabelle1")
  spalte = .Cells(1, .Columns.Count).End(xlToLeft).Column 'letzte Spalte ermitteln
    For i = 2 To spalte  'von Spalte2 bis letzte Spalte
      letzte = .Cells(.Rows.Count, 1).End(xlUp).Row + 1  'nachste freie in SpalteA
      .Cells(letzte, 1).Resize(.Cells(1, i).End(xlDown).Row, 1).Value = .Cells(1, i).Resize(. _
Cells(1, i).End(xlDown).Row, 1).Value 'nur die Werte uebergeben
    Next
  .Range(.Columns(2), .Columns(spalte)).Clear 'zu letzt Bereich loeschen
End With

End Sub

Falls jemand das gleiche Problem mal hat......