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

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

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

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

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
.

46 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige