860to864: Möchte Daten Aus Zeilen In Spalten Einfügen !?

Forumthread: Möchte Daten Aus Zeilen In Spalten Einfügen !?

Möchte Daten Aus Zeilen In Spalten Einfügen !?

07.04.2007 23:14:39

Leo van der Haydn

Hallo zusammen,
ich hab diesmal ein etwas anspruchvolleres Problem - siehe https://www.herber.de/bbs/user/41646.xls ...
Ich möchte gerne die Daten aus den horizontalen Spalten in vertikale Zeilen umwandeln.
Schaut euch die kleine Datei am besten einfach mal unverbindlich an - dann erkennt ihr (Profis) das Problem sofort. Ich habe einfach nur Probleme damit ein MAKRO diesbezüglich zu formulieren. Dürfte für einen geübten VBA Anwender kein PRoblem darstellen.
Mit Besten Wünschen & Weiterhin Viel Erfolg :
Leo van der Haydn

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Transponieren

07.04.2007 23:45:45

xlSchnack
AW: Transponieren

08.04.2007 07:52:51

Matthias L.
AW: Transponieren

14.04.2007 04:28:57

Leo van der Haydn

Transponieren

07.04.2007 23:45:45

xlSchnack

Hi Leo,


Sub Transponieren()
Sheets("URSPRUNGS Tabelle").Range("C3:IV6").Copy
Sheets("ZIEL Tabelle").Range("B1").PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=True
Sheets("ZIEL Tabelle").Cells.Columns.AutoFit
End Sub

Salut

AW: Transponieren

08.04.2007 07:52:51

Matthias L.

Hi,

Im Grunde genommen hast Du schon recht.  :o)

Aber, das würde ich trotzdem nicht ganz so machen.
So, zerstört der Code nämlich die optische Struktur des bereits angelegten Tabellenblattes, siehe Bild:
Userbild

So ist es sicher besser ;-)

'Änderungen Fett dargestellt
Option Explicit
Sub Transponieren()
Sheets("URSPRUNGS Tabelle").Range("C5:IV6").Copy
Sheets("ZIEL Tabelle").Range("D4").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=True
Application.CutCopyMode = False
End Sub
und Autofit würde ich weglassen, da man nicht weiß ob das überhaupt gewollt ist.
und nun sieht es so aus :o)
Userbild

sieht doch besser aus, oder? ;-)
Gruß Matthias

AW: Transponieren

14.04.2007 04:28:57

Leo van der Haydn

Dank` Euch Beiden,
zugegeben, wenn auch verspätet :)
Hab das MAKRO soeben probiert - funktioniert ausgezeichnet ;)
Die Fraben waren übrigens nur zum besseren verständnis gedacht. Ich wußte nicht ob ich mich klar ausgedrückt hatte. Wie schon geschrieben. Danke. Cool stuff ...
Hab allerdings (siehe aktuellen Beitrag von heute, hier & demnächst : 14.04.2007 gegen ca. 04:30 Uhr) ein anderes Problem, dass das Quecksilber meiner Fieberkurve nach oben treibt !!!!
Mit Besten Wünschen :
Leo van der Haydn

Beliebteste Forumthreads (12 Monate)

860to864: Möchte Daten Aus Zeilen In Spalten Einfügen !?

Forumthread: Möchte Daten Aus Zeilen In Spalten Einfügen !?

3 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread