Microsoft Office Forum [ www.Office-Fragen.de ] >> READONLY <<

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......

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