Datum

Titel

25.04.2024 00:42:03

Listbox mit gefilterten Daten füllen

24.04.2024 20:38:58

Summe mit Bedingung, nur letzte Ergebnisse anzeigen

24.04.2024 19:29:30

Formel filter

24.04.2024 18:49:56

merge & select

Du findest keine passende Antwort auf Deine Frage?

Stelle Deine Frage in unserem Live-Forum

Archiv - Navigation

860to864

Aktuelles Verzeichnis

Verzeichnis Index

Übersicht Verzeichnisse

Vorheriger Thread

Rückwärts Blättern

Nächster Thread

Vorwärts blättern

HERBERS

Excel-Forum (Archiv)

20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Rückwärts Blättern

Aktuelles Verzeichnis

Übersicht Verzeichnisse

Vorwärts blättern

Inhaltsverzeichnis

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

Forumthread: 860to864: Möchte Daten Aus Zeilen In Spalten Einfügen !?
3 Beiträge zu diesem Forumthread
Anzeige
303 Threads zu ähnlichen Themen
Top 100 Forumthreads

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