Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
872to876
872to876
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Tabelle um 180 Grad drehen

Forumthread: Tabelle um 180 Grad drehen

Tabelle um 180 Grad drehen
04.06.2007 14:32:50
mehmet
Hallo Forum,
kann man mit VBA eine Tabelle [A2:H(zellinhalt nicht leer)] um 180 Grad drehen.
Damit meine ich nicht Schrift drehen oder transponieren sondern nur die Zeilen.
In recherche konnte ich leider nichts finden.
So hatte ich mir es vorgestellt:
A2 Zeile mit H(zellinhalt nicht leer)
A3 Zeile mit H(zellinhalt nicht leer)-1
A3 Zeile mit H(zellinhalt nicht leer)-2
und so weiter
Für jeden Hinweis bin ich dankbar.
Gruss
mehmet

Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Tabelle um 180 Grad drehen
04.06.2007 14:43:49
Rudi
Hallo,
so?

Sub vonuntennachoben()
Dim i As Long, vntArray, j As Integer
Application.ScreenUpdating = False
vntArray = Range(Cells(2, 1), Cells(Rows.Count, 8).End(xlUp))
Range(Cells(2, 1), Cells(Rows.Count, 8).End(xlUp)).ClearContents
For i = UBound(vntArray, 1) To 1 Step -1
With Cells(Rows.Count, 1).End(xlUp)
For j = 0 To 7
.Offset(1, j) = vntArray(i, j + 1)
Next
End With
Next i
End Sub


Gruß
Rudi
Eine Kuh macht Muh, viele Kühe machen Mühe

Anzeige
AW: Tabelle um 180 Grad drehen
04.06.2007 15:04:25
mehmet
Hallo Rudi,
super es klappt. Dank dir.
Es wird gedreht. Es werden allerdings auch leere Zeilen mitgedreht so das meine Tabelle in der Mitte ist.
Dann könnte man doch VBA sagen, lösche A2:A(zelle leer) weg.
Übrig bleibt dann nur noch die gedrehte Tabelle.
Dank und Gruss
mehmet

Anzeige
AW: Tabelle um 180 Grad drehen
04.06.2007 15:11:32
mehmet
Beispiel Lösung:
'################# Leere Zeilen Löschen ########
Range("A1").Select
For i = 1 To 2000
If ActiveCell = "" Then ActiveCell.EntireRow.Delete Else: ActiveCell.Offset(1, 0).Range("A1").Select
Next i
' ##############################################
Kann man es so gestalten statt A1:A2000 soll A1:A(ungleich leer)
Gruss
mehmet

Anzeige
AW: Tabelle um 180 Grad drehen
04.06.2007 15:33:24
Rudi
Hallo,
ohne Schleife:
columns(1).specialcells(xlcelltypeblanks).entirerow.delete
Gruß
Rudi
Eine Kuh macht Muh, viele Kühe machen Mühe

Super, Dank dir o.T.
04.06.2007 15:38:00
mehmet
.
;

Forumthreads zu verwandten Themen

Exceltabelle in Word
S.H.

Hallo,
evtl. bin ich auch im falschen Forum, aber trotzdem meine Frage:
Ich habe ein Excel Arbeitsblatt unter word eingefügt und möchte dort weitere Zeilen einfügen. Das funktioniert auch soweit, am Ende der Word Seite ist allerdings Schluss. Ich schaffe es nicht, das die Tabelle einen...
20.10.2008 20:22:26
Thread-ID: 1017796
3 Beiträge
Excel-Tabelle in Word-Dokument
Dieter

Hallo Forum,
in die Übergabe einzelner Werte einer Excel-Tabelle in ein Word-Dokument habe ich mich ganz gut eingearbeitet. Nun stehe ich allerdings vor dem Problem, eine ganze Tabelle oder nur einen zusammenhängenden Teil der Tabelle in ein Word-Dokument zu übertragen. Kann mir jemand ein...
27.12.2008 16:58:00
Thread-ID: 1035409
8 Beiträge
Excel Tabelle über 2 Seiten in Word
Ralf

Hallo,
ich möchte eine Excel Tabelle in Word einfügen. Das Problem ist, dass die Tabelle sehr lang ist und über 2 Seiten in Word gehen würde. Sie soll auch automatisch aktualisiert werden, wenn die Originaltabelle in Excel verändert wird.
Gibt es da eine Möglichkeit?
Vielen Dank!
16.04.2009 22:29:58
Thread-ID: 1069191
3 Beiträge
Zwei Excel-Tabellen in WinWord verknüpfen
Andreas

Hallo zusammen,
ich habe eine Word-Datei, in der sich an zwei verschiedenen Stellen zwei eingefügte Excel-Dateien befinden. Diese wurde vor langer Zeit mal aus Excel kopiert. Das Original in Excel existiert nicht mehr.
Jetzt möchte ich das Ergebnis einer Berechnung aus der ersten Tabell...
04.08.2009 13:53:46
Thread-ID: 1093412
2 Beiträge
Excell Tabelle in Word und Format behalten
Christian

Hallo.
Bei importieren einer Excell Tabelle in Word wird das Format der Tabelle immer "verhauen" = in die länge gezogen. Das sieht bescheiden aus. Gibt es eine Möglichkeit die Tabelle so zu importieren damit das Seitenverhältnis bleibt. Ich arbeite mit Word und Excell 2007.
Danke im Vor...
05.08.2009 14:48:21
Thread-ID: 1093759
2 Beiträge
Anzeige
aus Word mit Makro in Excel Tabellenblatt wechseln
Joni

Hi,
ich habe das Problem, dass ich aus einem Worddokument eine Exceltabelle, die bereits geöffnet ist, aktivieren möchte und dann da aus 2 Tabellenblättern Werte auslesen. Ich komm da einfach nicht weiter.
Excel als Object habe ich definiert. Beim Workbook und Sheet klappt das nicht meh...
31.10.2009 00:38:15
Thread-ID: 1113446
3 Beiträge
Excel-Tabellen in Word umwandeln
joko0803

Hallo alle,
ich bin nicht sicher, ob dieses Thema hier her gehört.
Falls nein, wäre ich für das Benennen eines entsprechenden Forums dankbar.
In einem Word Dokument habe ich viele Excel-Tabellen eingebunden.
Dieses Word Dokument muss ich an eine Behörde zur Weiterverarbeitung ve...
07.05.2010 16:29:49
Thread-ID: 1156132
6 Beiträge
XL in Word und um 180 Grad drehen
Thorge

Hallo!
Kann mir jmd sagen, wie ich eine vorhandene XL-tabelle so in Word einfüge, dass ich sie um 180 Grad drehen (also quer darstellen) kann? Das Zeichnen-Menü ist nicht anwählbar.
Danke und Gruß
TJ
25.04.2002 09:23:15
Thread-ID: 116167
2 Beiträge
Einbindung XLS Tabelle in Word Document
Steffen

Hallo
Kann ich eine Exceltabelle (nichts aufregendes nur Zeilen und Spalten) so in eine Word Dokument einbinden, daß die Tabelle im Worddokument aktuell bleibt?
Also wenn ich die Tabelle ergänze oder ändere, soll die Tabelle im Word Dokument automatisch mitaktuallisiert werden (also wen...
21.09.2010 08:38:34
Thread-ID: 1178661
3 Beiträge
Tabelle in Word einfügen
Carle

Hallo miteinander,
ich stehe vor der an und für sich einfachen Aufgabe (sollte man jedenfalls meinen) eine Tabelle in ein Word-Dokument einzubinden. Ich gehe wie folgt vor: Tabelle wird in Excel markiert und kopiert, dann wechsele ich in das Word-Dokument und gehe auf Bearbeiten/Inhalte ein...
03.01.2011 12:26:59
Thread-ID: 1193638
4 Beiträge
Diagramm um 90 Grad drehen
Henning

Hallo Leute,kann es sein, das man Diagramme nicht um 90 Grad drehen kann?Ich möchte gerne ein Liniendiagramm welches nicht von links nach rechts sondern von oben nach unten läuft erstellen!Leider habe ich selbst nach vielen Suchen keine Lösung gefunden.
Hat irgendjemand eine Idee???Gruss
...
11.05.2002 17:32:20
Thread-ID: 120174
3 Beiträge
excel tabelle in word einfügen
Jochen

HalloIch möchte eine Excel Tabelle in ein Word Dokument einfügen.
Aber die Tabelle soll im Querformat im Worddokument erscheinen.
Wie geht das ?Danke !!!!!!!mfg Jochenp.s. Hoffe auf schnelle antworten, da ich heute noch mit einer Doku fertig werden musss
20.05.2002 12:52:14
Thread-ID: 122165
2 Beiträge
Anzeige
Anzeige

Infobox / Tutorial

Tabelle um 180 Grad drehen in Excel

Schritt-für-Schritt-Anleitung

Um eine Excel-Tabelle um 180 Grad zu drehen, kannst du VBA verwenden. Hier ist eine einfache Schritt-für-Schritt-Anleitung:

  1. Öffne Excel und drücke Alt + F11, um den VBA-Editor zu öffnen.

  2. Füge ein neues Modul hinzu: Klicke mit der rechten Maustaste auf "VBAProject (deineDatei.xlsx)" und wähle "Einfügen" > "Modul".

  3. Kopiere und füge den folgenden Code ein:

    Sub vonuntennachoben()
    Dim i As Long, vntArray, j As Integer
    Application.ScreenUpdating = False
    vntArray = Range(Cells(2, 1), Cells(Rows.Count, 8).End(xlUp))
    Range(Cells(2, 1), Cells(Rows.Count, 8).End(xlUp)).ClearContents
    For i = UBound(vntArray, 1) To 1 Step -1
        With Cells(Rows.Count, 1).End(xlUp)
            For j = 0 To 7
                .Offset(1, j) = vntArray(i, j + 1)
            Next
        End With
    Next i
    Application.ScreenUpdating = True
End Sub

  4. Führe das Makro aus: Klicke im VBA-Editor auf F5, um das Makro auszuführen. Deine Tabelle sollte jetzt um 180 Grad gedreht sein.

Häufige Fehler und Lösungen

  • Leere Zeilen bleiben bestehen: Wenn beim Drehen der Tabelle leere Zeilen bleiben, kannst du sie mit folgendem Code löschen:

    Range("A1").Select
For i = 1 To 2000
    If ActiveCell = "" Then ActiveCell.EntireRow.Delete Else: ActiveCell.Offset(1, 0).Range("A1").Select
Next i

  • Alle Zeilen werden nicht korrekt gedreht: Stelle sicher, dass dein Zellbereich korrekt ausgewählt ist (z.B. A2:H). Der Code sollte an die Größe deiner Tabelle angepasst werden.

Alternative Methoden

  1. Excel Funktionen verwenden: Eine Möglichkeit, die Tabelle zu drehen, ohne VBA zu verwenden, ist die Verwendung von „Transponieren“. Kopiere die Tabelle, klicke mit der rechten Maustaste auf die Zielzelle und wähle „Inhalte einfügen“ > „Transponieren“. Diese Methode dreht jedoch die Spalten und Zeilen um 90 Grad, nicht um 180.

  2. Excel Ansicht drehen: Eine weitere Option ist die Verwendung der Funktion „Ansicht drehen“ in Excel, die jedoch nur für die Darstellung, nicht für die tatsächliche Datenanordnung ist.

Praktische Beispiele

Wenn du eine Tabelle von beispielsweise:

A2: 1
A3: 2
A4: 3

in:

A4: 1
A3: 2
A2: 3

umdrehen möchtest, kannst du den oben genannten VBA-Code verwenden. Passe die Range entsprechend an, um die gewünschten Zellen einzuschließen.

Tipps für Profis

  • Sichere deine Daten: Bevor du mit VBA arbeitest, erstelle eine Sicherheitskopie deiner Excel-Datei.
  • Teste den Code: Führe den Code zuerst an einer kleinen Datenmenge aus, um sicherzustellen, dass alles wie gewünscht funktioniert.
  • Makros automatisch ausführen: Du kannst das Makro so einstellen, dass es beim Öffnen der Datei automatisch ausgeführt wird, indem du es in das Workbook_Open() Event einfügst.

FAQ: Häufige Fragen

1. Wie kann ich nur eine bestimmte Spalte um 180 Grad drehen?
Du kannst die Range im VBA-Code anpassen, um nur die gewünschten Spalten zu drehen.

2. Funktioniert dieser Code in jeder Excel-Version?
Ja, der VBA-Code sollte in den meisten modernen Excel-Versionen funktionieren, solange das VBA-Feature unterstützt wird.

3. Wie kann ich den Code anpassen, um leere Zeilen zu ignorieren?
Verwende die SpecialCells Methode, um leere Zeilen zu löschen, wie im Beispiel von Rudi:

Columns(1).SpecialCells(xlCellTypeBlanks).EntireRow.Delete

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige