Live-Forum - Die aktuellen Beiträge
Datum
Titel
23.04.2024 17:00:22
Summe und Ausgabe
23.04.2024 16:27:34
Excel Starthinweis - Arbeitsmappenleistung überprüfen ...
23.04.2024 16:15:16
Mittels VBA vordefinierte Kommentare in Zellen einfügen?
23.04.2024 14:59:21
Zellformel in VBA
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
748to752
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
748to752
748to752
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Spalten in Zeilen einfügen bzw. zusammenfassen

Spalten in Zeilen einfügen bzw. zusammenfassen
01.04.2006 23:58:27
GregorJ
Hallo,
ich habe 3 Spalten und möchte diese nun zusammenfassen
A / B / C
1 / 1 / 1
2 / 2 / 2
3 / 3 / 3
...
soll werden
A
1
1
1
2
2
2
3
3
3
...
oder auch
A / B / C / D / E / F / G / H / I / J / K / L / M
1 / 1 / 1 / 2 / 2 / 2 / 3 / 3 / 3 / ...
welche Möglichkeit habe ich das per VB um zu setzen ?
Gregor

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

Betreff
Datum
Anwender
Anzeige
AW: Spalten in Zeilen einfügen bzw. zusammenfassen
02.04.2006 00:29:19
Erich
Hallo Gregor,
probiers mal mit den beiden Prozeduren: 
Option Explicit
Sub transf1()
Dim ze&, sp%, AnzZe&
Const AnzSp = 3
AnzZe = Cells(Rows.Count, 1).End(xlUp).Row
For sp = 1 To AnzSp
For ze = 1 To AnzZe
Cells(ze + (sp - 1) * AnzSp, 1) = Cells(ze, sp)
Next ze
Next sp
Columns("B:C").ClearContents
End Sub
Sub transf2()
Dim ze&, sp%, AnzZe&
Const AnzSp = 3
AnzZe = Cells(Rows.Count, 1).End(xlUp).Row
For ze = 1 To AnzZe
For sp = 1 To AnzSp
Cells(1, sp + (ze - 1) * AnzSp) = Cells(ze, sp)
Next sp
Next ze
Range(Rows(2), Rows(AnzZe)).ClearContents
End Sub
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort
Anzeige
AW: Spalten in Zeilen einfügen bzw. zusammenfassen
02.04.2006 00:31:52
Beni
Hallo Gregor,
Gruss Beni

Sub inSpalteA()
r = 1
Columns("A:A").Insert Shift:=xlToRight
For z = 1 To Cells(65536, 2).End(xlUp).Row
For s = 2 To Cells(1, 255).End(xlToLeft).Column
Cells(r, 1) = Cells(z, s)
r = r + 1
Next s
Next z
End Sub



Sub inZeile1()
For z = 2 To Cells(65536, 1).End(xlUp).Row
ls = Cells(1, 255).End(xlToLeft).Column
lc = Cells(1, 255).End(xlToLeft).Column + 1
Range(Cells(z, 1), Cells(z, ls)).Cut Destination:=Cells(1, lc)
Next z
End Sub

AW: Spalten in Zeilen einfügen bzw. zusammenfassen
02.04.2006 01:50:15
GregorJ
Danke,
das hat geklappt.
aus:
a1 / b1 / c1
a2 / b2 / c2
a3 / b3 / c3
a4 / b4 / c4
a5 / b5 / c5
a6 / b6 / c6
a7 / b7 / c7
a8 / b8 / c8
a9 / b9 / c9
a10 / b10 / c10
a11 / b11 / c11
a12 / b12 / c12
ist mit Benis Lösung
Spalte:
a1 / a1 / b1 / c1
b1 / a2 / b2 / c2
c1 / a3 / b3 / c3
a2 / a4 / b4 / c4
b2 / a5 / b5 / c5
c2 / a6 / b6 / c6
a3 / a7 / b7 / c7
b3 / a8 / b8 / c8
c3 / a9 / b9 / c9
a4 / a10 / b10 / c10
b4 / a11 / b11 / c11
c4 / a12 / b12 / c12
a5
b5
c5
a6
b6
c6
a7
b7
c7
a8
b8
c8
a9
b9
c9
a10
b10
c10
a11
b11
c11
a12
b12
c12
geworden
und mit Benis Lösung
Zeile:
a1 / b1 / c1 / a2 / b2 / c2 / a3 ...
geworden
mit der Lösung von Erich
zur Zeile hat das gleiche Ergebnis ergeben,
nur die Lösung von Erich
zur Spalte hat nicht geklappt:
a1
a2
a3
b1
b2
b3
c1
c2
c3
c4
c5
c6
c7
c8
c9
c10
c11
c12
ich habe eine Muster Datei gemacht:
https://www.herber.de/bbs/user/32532.xls
ich danke euch für die Unterstützung
Gregor
Anzeige

302 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