Spalten mit Zeilen spiegeln?

Bild

Betrifft: Spalten mit Zeilen spiegeln?
von: Lenny
Geschrieben am: 28.03.2005 12:54:58
Hallo zusammen,
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

Bild

Betrifft: =INDEX(A:A;201-ZEILE($A1))
von: Boris
Geschrieben am: 28.03.2005 13:09:06
Hi Lenny,
diese Formel gibt dir den Wert aus A200 wider. Nach rechts kopiert den Wert aus B200, nach unten das Gleiche mit 199, 198 etc...
Grüße Boris
Bild

Betrifft: ... oder mit VBA :-)
von: Ramses
Geschrieben am: 28.03.2005 13:13:13
Hallo
Den Code in ein Modul kopieren und ablaufen lassen

Option Explicit
Option Base 1

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

Gruss Rainer
Bild

Betrifft: Hat geklappt, aber...
von: Lenny
Geschrieben am: 28.03.2005 13:20:22
Danke für deine schnelle Antwort hat einwandfrei funktioniert.
Nun hab ich noch ein kleines Problem, wie kann ich Zahlen, bei welchen die Dezimalstelle durch einen Punkt getrennt wird, durch ein Komma ersetzten?
Also: 4000.21 sollte dann 4000,21 heißen. (der Punkt ist kein Tausendertrennzeichen!)
Grüße
Lenny
Bild

Betrifft: =WECHSELN(A1;".";",")*1
von: Boris
Geschrieben am: 28.03.2005 13:23:56
Grüße Boris
Bild

Betrifft: Herzlichen Dank o.T
von: Lenny
Geschrieben am: 28.03.2005 13:28:34
...
 Bild

Beiträge aus den Excel-Beispielen zum Thema "Spalten mit Zeilen spiegeln?"