Daten von zwei Spalten in einer
zwei
ich habe 14 Spalten ( A bis N), wobei immer die Daten der nebeneinanderliegenden Spalten zusammen gehören. (Also A und B, C und D etc.).
Auf einer anderen Tabelle sollen die Daten der oben genannten UNTEREINANDER (Spalte A:B) erscheinen.
Mit folgendem Code komm ich schon nahe hin, aber er trägt gnadenlos alles in einer Spalte ein.
Sub Personalübersicht_Zusatz()
Quelle = "Zusammenfassung"
Ziel = "testseite"
Yziel = 6
With Sheets(Quelle)
For Xquelle = 1 To .Cells.SpecialCells(xlCellTypeLastCell).Column
For Yquelle = 1 To .Cells.SpecialCells(xlCellTypeLastCell).Row
If Not IsEmpty(.Cells(Yquelle, Xquelle)) Then
Sheets(Ziel).Cells(Yziel, 10) = .Cells(Yquelle, Xquelle)
Yziel = Yziel + 1
End If
Next
Next
End With
MsgBox "Fertig"
End Sub
Herzlichen Dank vorab