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?"