Herbers Excel-Forum - das Archiv

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
Excel-Beispiele zum Thema "Spalten mit Zeilen spiegeln?"
Vorkommen von Zahlenreihen in Spalten Funktion ANZAHL2 ohne ausgeblendete Spalten
Spaltenbreite anpassen Spalten einer Mehrbereichsauswahl ausblenden.
Spaltennamen bestimmen Spalten/Zeilen aus- und einblenden
Zeilen und Spalten über ein Drehfeld ein- und ausblenden In einem Dialog ausgewählte Spalten drucken
Spalten bedingt summieren und Zellen formatieren Abfrage der markierten Spalten