Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 00:20:14
Bestimmte Spalten als xls exportieren per Makro
23.04.2024 22:08:10
Auflisten in Spalte VBA
23.04.2024 21:33:46
Nur farbige/nicht farbige Zellen markieren
23.04.2024 21:29:56
Bestimmte Zellen auf andere Arbeitsblätter kopieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1196to1200
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1196to1200
1196to1200
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Spalten untereinander in Zeilen kopieren

Spalten untereinander in Zeilen kopieren
Karl-Heinz
Hallo liebes Team,
ich habe folgendes Problem:
Mir liegt eine Excel-Tabelle vor, die eine beliebige Anzahl von Spalten und Zeilen hat.
In der Spalte A stehen die Zeilenüberschriften, die Spalten B-beliebig enthalten für jede Zeilenüberschrift Daten
Beispiel:
siehe https://www.herber.de/bbs/user/73385.xls
Ich will jetzt aus dem möglicherweise sehr langem Tabellenblatt jeweils die Spalte A als Zeilenüberschrift jeweils vorne stehen haben und jeden einzelne Datensatz aus den Spalten B bis Spalte beliebig in Spalte B untereinander, nach jedem Satz mit einem Zeilenumbruch versehen, eintragen lassen.
So soll es dann aussehen:
siehe https://www.herber.de/bbs/user/73385.xls
Dabei soll das Makro ermöglichen, dass auch verschieden große Sheets mit beliebiger Anzahl von Zeilen und Spalten bis zum Ende diese "Transformation" durchführt.
Hat jemand hierfür eine Lösung?
Vorab vielen Dank.
Karl Heinz

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Spalten untereinander in Zeilen kopieren
03.02.2011 17:28:26
Jörn
Hallo Karl-Heinz,
habe eine ähnliche Frage schon mal bearbeitet. Das Ergebnis passt nicht 1 zu 1, aber vielleicht hilft es Dir ein Stück weiter.
die erste Überschrift sollte in A1 stehen ...
Sub SpaltUnt()
Dim ZeiX As Long, ZeiB As Long, ZeiA As Long, Spa As Integer, SpaA As Integer, X As Integer
Application.ScreenUpdating = False
SpaA = Cells(1, Columns.Count).End(xlToLeft).Column
For Spa = 3 To SpaA
ZeiB = Cells(Rows.Count, 2).End(xlUp).Row + 1
ZeiX = Cells(Rows.Count, Spa).End(xlUp).Row
Range(Cells(1, Spa), Cells(ZeiX, Spa)).Copy Destination:=Cells(ZeiB, 2)
Next Spa
ZeiA = Cells(Rows.Count, 1).End(xlUp).Row
For X = 3 To SpaA
ZeiA1 = Cells(Rows.Count, 1).End(xlUp).Row + 1
Range(Cells(1, 1), Cells(ZeiA, 1)).Copy Destination:=Cells(ZeiA1, 1)
Next X
Application.ScreenUpdating = True
End Sub

Gruß
Jörn
Anzeige
AW: Spalten untereinander in Zeilen kopieren
03.02.2011 17:54:40
Karl-Heinz
Hallo Jörn,
vielen Dank für die Hilfe. Es funktioniert so, wie ich es brauche. Klasse!
Zwei Kleinigkeiten hätte ich noch:
Im oberen Teil des Tabellenblattes stehen natürlich noch die Ursprungswerte (Zeilen und Spalten). Wie können diese nach Ablauf des Makros gelöscht werden, so dass nur noch die neuen Zeilen stehen bleiben.
Und - ist es möglich, jedes neue "Zeilenpaket" mit einem Zeilenumbruch zu versehen, so dass immer neue Seiten entstehen.
Vielleicht hast Du hierfür auch eine Lösung.
Vielen Dank und noch einen schönen Abend.
Karl-Heinz
AW: Spalten untereinander in Zeilen kopieren
03.02.2011 18:22:26
Jörn
Hallo
zum Löschen füge einfach eine Zeile über "Application.ScreenUpdating = True" folgenden Befehl ein:
Range(Cells(1, 3), Cells(ZeiX, SpaA)).Delete
Wegen des Zeilenumbruchs wüßte ich jetzt auch nichts, sorry ...
Schöne Grüße
Jörn
Anzeige
AW: Spalten untereinander in Zeilen kopieren
03.02.2011 18:35:36
Karl-Heinz
Hallo Jörn,
vielen Dank - ich Tölpel meinte natürlich jeweils einen Seitenumbruch - nicht Zeilenumbruch. Die Päckchen sollten so jeweils auf einer separaten Seite erscheinen.
Sorry - vielleicht geht aber ein Seitenumbruch?
Danke
Karl-Heinz
AW: Spalten untereinander in Zeilen kopieren
03.02.2011 19:31:10
Jörn
Hallo Karl-Heinz,
hab ich leider keine so rechte Antwort (bin auch nur Anfänger), vielleicht einfach einen neuen Beitrag eröffnen?
Viel Glück
Gruß
Jörn
AW: Spalten untereinander in Zeilen kopieren
04.02.2011 09:43:43
Karl-Heinz
Hallo Jörn,
ok, vielen Dank für alles. Vielleicht werde ich ja noch fündig.
Schönes Wochenende.
Karl Heinz

317 Forumthreads zu ähnlichen Themen

Frage - Spalten einfügen & Spalten untereinander z
André

Hallo zusammen!
Ich habe da als blutiger Anfänger in VBA zwei Fragen:
1.) Wie kann ich in meiner Tabelle in jeder zweiten Spalte 4 leere Spalten einfügen lassen?
2.) Dann möchte ich unter den Inhalt der ersten fünf Spalten (A-E) den Inhalt der zweiten 5 Spalten (F-J) usw. In der grö...
08.08.2008 16:00:00
Thread-ID: 1000340
3 Beiträge
Anzeige
Spalten in Zeilen anhängen
Jörg

Hallo zusammen,
in einer Tabelle mit ~1000 Artikeln in Spalte A stehen jeweils in den Spalten B-M die 12 zum Artikel gehörenden Monatswerte des Verbrauchs.
Ich brauche diese Daten jetzt so angeordnet, dass weiterhin alle Artikel in Spalte A stehen, jedoch die einzelnen Monatswerte unter...
01.09.2008 18:03:42
Thread-ID: 1006570
11 Beiträge
Zelleninhalt (Text) in 2 Spalten teilen
El.

Hallo!
Habe eine Spalte in der Artikelname und Artikelmerkmale, durch drei Punkte getrennt "...", zusammen stehen. Beispiel: Lecker Whisky 21 Jahre ... Lieferung in hochwertiger Schatulle
Wie krieg ich nun den Text links der Punkte in eine extra Spalte und rechts der Punkte in eine extr...
03.09.2008 16:35:00
Thread-ID: 1007155
4 Beiträge
Anzeige
Spaltentrennzeichen nach speichern in Text-Datei
Michael

Hallo
ich habe ein Problem. Vielleicht ist es schwierig, vielleicht aber auch nicht.
Ich habe eine Text-Datei mit Spaltentrennzeichen "|" (besser als ";" der Übersichtlichtlichkeit halber) und verschiedenen Längen der Spalten.
Ich will diese in Excel überarbeiten und als Text-Dat...
11.09.2008 09:28:00
Thread-ID: 1008978
3 Beiträge
Text in Spalten
Simone

Hallo zusammen,
ich hab ein wohl eher triviales Problem, komme aber trotzdem einfach nicht weiter.
Ich füge in ein Arbeitsblatt Daten aus einem anderen Programm ein. Jetzt habe ich mehrmals die Funktion 'Text in Spalten' verwendet / ausprobiert, und wenn ich jetzt wieder Daten in A1 ein...
16.09.2008 13:54:00
Thread-ID: 1010092
3 Beiträge
Zeilen löschen in Abhängigkeit von 2 Spalten
2

Hallo zusammen,
ich habe ein Makro über den Rekorder aufgezeichnet und versuche es anzupassen. Leider kenn ich mich in der Syntax nicht aus.
Ziel:
In einem markierten Bereich die Zeilen löschen, die in Abhängigkeit von zwei Spalten eine 0 enthalten.
D.h. Spalten X und Y enthalte...
06.10.2008 14:00:00
Thread-ID: 1014434
3 Beiträge
TextBox Werte in Spalte Q ersetzen ?
Selma

Hallo Leute,
ich habe eine Frage zu UserForm. Beim Klick auf CommandButton1 sollen die Zahlen aus TextBox1 mit Werten in Spalte Q ab Zeile 12 ersetzt werden. Dies soll nur dann erfolgen, wenn in TextBox1 die Zahlen stehen bzw. der TextBox gefüllt ist.
Ersetzt sollen nur die vorhandene W...
13.10.2008 15:42:00
Thread-ID: 1016083
3 Beiträge
Text in Spalten
Tom

Hallo,
ich möchte mit der Funktion Text in Spalten erreichen, dass alle Zeilen, die mit einer Zahl beginnen, nach der Zahl in eine neue Spalte geschoben werden - nur finde ich hierfür nur die Funktionen nach Leerzeichen, Komma usw...
Wer hat ne Lösung?
In A1: 1020 Maier Huber Mülle...
20.10.2008 14:09:42
Thread-ID: 1017654
7 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
2
3
10
3
3
2
2
2
2
6
3
2
2
2
2
4
4
8
4
5
4
2
5
3
4