old thread!
26.07.2004 20:03:29
Peter
habe mal ne Frage wo kann ich in diesem Code die Range festlegen? So funkzt es nur in der Spalte A...
Gruss Peter
Quote from Rainer:
Hallo
eine andere Variante
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
Gruss Rainer
Anzeige