gibt es eine Moeglichkeit, eine Lange Spalte (A1:A200) umzudrehen?
Sprich den inhalt aus zelle A200 nach B1, A199 nach B2, etc zu kopieren?
Gruss Peter
Sub Vertical_Transponder()
Dim i As Integer, back As Integer
Dim VertArr As Variant
ReDim VertArr(200)
For i = 1 To 200
VertArr(i ) = Cells(i, 1)
Next i
back = 1
For i = 200 To 1 Step -1
Cells(i, 1) = VertArr(back)
back = back + 1
Next i
End Sub