Office: Tabelle horizontal spiegeln

Gurkenhobel · 15. September 2014

Hallo Gemeinde,

ich such nach einer Möglichkeit eine Tabelle mit unterschiedlicher Spalten- UND Zeilenanzahl horizontal zu spiegeln. Dabei soll die erste Spalte nicht mit "gespiegelt" werden.
Habe verzweifelt diese Forum durchsucht und auch daß Internet brachte nur komplizierte Konstrukte. Ich möchte den gesamten Bereich markieren (Range.currentRegion) und dann die Spalten (außer "A") in ein Array einlesen lassen und dann in einem NEUEN Tabellenblatt "horizontal gespiegelt" wieder einlesen.
Über Antwort würde ich mich serh freuen...

G:H

:)

Gurkenhobel · 20. September 2014

Hhm, bin da irgendwie in der falschen Sparte gelandet, vielleicht kann es ein Mod in die Excel|VBA-Ecke verschieben,. Danke !*frown.gif*

[Edit] Mof-Team AD: Erledigt. [/Edit]

OfficeUser · 20. September 2014

Ein Bild in Excel geöffnet sieht anders aus als das Bild.
Ich habe kein Tool um ein Bild in Excel zu importieren.

Tabelle1
A B C D E F
22 Name1 Wert1 Wert2 Wert3 Wert4 Wert5
23
24 name1 Wert5 Wert4 Wert3 Wert2 Wert1
verwendete Formeln
Zelle Formel Bereich N/A
B24:F24 =INDIREKT(ADRESSE(22;ANZAHL2($A:$F)-SPALTE()+2))
Excel-Inn.de

Hajo-Excel.de
XHTML-Tabelle zur Darstellung in Foren, einschl. der neuen Funktionen ab Version 2007
Add-In-Version 18.14 einschl. 64 Bit

aloys78 · 20. September 2014

Hallo GH,

anbei eine VBA-Lösung.

VG
Aloys

Code:

Option Explicit
Option Base 1

Sub Spiegeln()
Dim arr()
Dim a As Long 'Index array
Dim r As Long 'Zeilen#
Dim c As Long 'Spalten#
Dim Lol_C As Long 'letzte Spalte
Dim LoL_R As Long 'letzte Zeile

With Worksheets("Tabelle1")
LoL_R = .Cells(Rows.Count, "A").End(xlUp).Row
Lol_C = .Cells(1, Columns.Count).End(xlToLeft).Column
ReDim arr(1 To LoL_R, 1 To Lol_C)
a = 1

'Spalten 2 bis LoL_C
For c = Lol_C To 2 Step -1
a = a + 1
For r = 1 To LoL_R
arr(r, a) = .Cells(r, c)
Next r
Next c

'Spalte 1
For r = 1 To LoL_R
arr(r, 1) = .Cells(r, 1)
Next r
End With

'Ausgeben Array in 2. Tabelle
Application.ScreenUpdating = False
With Worksheets("Tabelle2")
For r = LBound(arr) To UBound(arr)
For c = LBound(arr, 2) To UBound(arr, 2)
.Cells(r, c) = arr(r, c)
Next c
Next r
End With
Application.ScreenUpdating = True
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

OfficeUser · 20. September 2014

Hi,

vielleicht so:

Tabelle2
A B C D E F
1 A 12 7 3 8 5
2 B 6 14 8 5 8
3 C 11 18 5 9 2
4 D 14 2 1 7 10
5 E 10 19 4 6 3
Tabelle3
A B C D E F
1 A 5 8 3 7 12
2 B 8 5 8 14 6
3 C 2 9 5 18 11
4 D 10 7 1 2 14
5 E 3 6 4 19 10
verwendete Formeln
Zelle Formel Bereich N/A
B1:F5 =INDEX(Tabelle2!$B1:$F1;1;6-SPALTE(A1))
Excel-Inn.de

Hajo-Excel.de
XHTML-Tabelle zur Darstellung in Foren, einschl. der neuen Funktionen ab Version 2007
Add-In-Version 18.14 einschl. 64 Bit

Anschließend Bereich mit Formeln kopieren und Werte einfügen.

Gurkenhobel · 20. September 2014

\@alle
danke für Eure schnellen Lösungen. Sie bringen mich alle zum gewünschten Ziel. Ich werde mich wohl für das Makro entscheiden, muss da nicht immer wieder Formeln eingeben und kopieren...
@Hajo: richtig erkannt. Das Bild ist ein zurechtgeschnittener Screenshot von Spread32. Ich wollte nur schnell ein Beispiel liefern...
Danke und ein schönes Restwochenende

G:H

Office: Tabelle horizontal spiegeln

Tabelle horizontal spiegeln

Tabelle horizontal spiegeln

Tabelle horizontal spiegeln

Tabelle horizontal spiegeln - Similar Threads - Tabelle horizontal spiegeln

Schriftart einer Tabelle im Unterformular verändern

Tabellenränder beim Druck ausblenden

2 Tabellen nach bestimmten Kriterien synchronisieren

Word Tabelle Text in Spalte vertikal statt horizontal

Tabellenvorlage Zellen Zentrieren funktioniert nicht

Abfragen o. Tabellen horizontal kombinieren / zusammenfuehre

Seriendruck verschiebt Tabelle horizontal?

	A	B	C	D	E	F
22	Name1	Wert1	Wert2	Wert3	Wert4	Wert5
23
24	name1	Wert5	Wert4	Wert3	Wert2	Wert1

verwendete Formeln
Zelle	Formel	Bereich	N/A
B24:F24	=INDIREKT(ADRESSE(22;ANZAHL2($A:$F)-SPALTE()+2))