ich habe ca. 200 Excelzeilen mit 6 dazugehörigen Spalten, wie kann ich diese Daten spiegeln?
Also das Zeile 1 dann in Zeile 200, Zeile 2 in 199, Zeile 3 in 198 usw. steht.
Grüße
Lenny
Sub Vertical_Transponder()
Dim i As Integer, n As Byte
Dim VertArr As Variant
Dim arrD As Integer, backC As Integer, arrC as integer
'Anzahl Spalten
arrC = 6
'Letzen eintrag in Spalte A für die Array-Grösse bestimmen
arrD = Range("A65536").End(xlup).row
ReDim VertArr(arrD)
For n = 1 To arrC
For i = 1 To arrD
VertArr(i) = Cells(i, n)
Next i
backC = arrD
For i = 1 To arrD
Cells(i, n) = VertArr(backC)
backC = backC - 1
Next i
Next n
End Sub