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

Microsoft Office 2003-2019 => Excel => Thema gestartet von: 4pf3lb4um am November 11, 2013, 14:43:05 Nachmittag

Titel: Werte von mehreren Spalten in eine Spalte kopieren
Beitrag von: 4pf3lb4um am November 11, 2013, 14:43:05 Nachmittag

Hallo zusammen.

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

(http://www.youscreen.de/yqcsbvwz22.jpg)

ich bräuchte meine Daten aber in folgender Form:

(http://www.youscreen.de/clvpgsqb30.jpg)

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

vielen Dank im Voraus

LG

Titel: Antw: Werte von mehreren Spalten in eine Spalte kopieren
Beitrag von: 4pf3lb4um am November 13, 2013, 15:37:29 Nachmittag

keiner eine idee?

oder keiner eine ahnung was ich meine? ^^

Titel: Antw: Werte von mehreren Spalten in eine Spalte kopieren
Beitrag von: 4pf3lb4um am November 19, 2013, 23:48:21 Nachmittag

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