Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Tabelle umformatieren (X Spalte zu einer Zeilen)

Forumthread: Tabelle umformatieren (X Spalte zu einer Zeilen)

Tabelle umformatieren (X Spalte zu einer Zeilen)
03.09.2003 09:05:13
Jan
Hallo,

ich bräuchte bitte eure Hilfe, im Archiv finde ich es nicht (oder suche es unter einem falschen Suchbegriff). Ich habe eine Tabelle im olgenden Format:

Spalte1 Spalte2

Berlin Name1
Berlin Name2
Berlin Name3
Dresden NameX
Dresden NameY
Frankfurt Name10
Frankfurt Name11
Frankfurt NameX
Frankfurt Name1
...

und benötige aber folgendes Format für ein tool:

Spalte1 Spalte2 Spalte3 Spalte4 ....

Berlin Name1 Name2 Name3
Dresden NameX NameY
Frankfurt Name10 Name11 Namex Name1

Vielen Dank im voraus für eure Hilfe, Gruss Jan
Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Tabelle umformatieren (X Spalte zu einer Zeile
06.09.2003 18:27:08
Reinhard
Hi Jan,
folgender Code sollte klappen...
Gruß
Reinhard


Sub test()
z2 = 1
z1 = 2
s = 2
Tabelle2.Cells(1, 1) = Tabelle1.Cells(1, 1)
Tabelle2.Cells(1, 2) = Tabelle1.Cells(1, 2)
While Tabelle1.Cells(z1, 1) <> ""
If Tabelle2.Cells(z2, 1) = Tabelle1.Cells(z1, 1) Then
s = s + 1
Tabelle2.Cells(z2, s) = Tabelle1.Cells(z1, 2)
Else
s = 2
z2 = z2 + 1
Tabelle2.Cells(z2, 1) = Tabelle1.Cells(z1, 1)
Tabelle2.Cells(z2, 2) = Tabelle1.Cells(z1, 2)
End If
z1 = z1 + 1
Wend
End Sub
Das Makro macht aus:
n	1
n	2
n	3
t	4
t	5
e	6
e	7
e	8
e	9
die folgende Tabelle:
n	1	2	3
t	4	5
e	6	7	8	9

Anzeige
AW: Tabelle umformatieren (X Spalte zu einer Zeile
08.09.2003 09:41:33
Jan
Hallo Reinhard,

Vielen Dank, funktioniert suppeeerrrr !!!!!

Gruss Jan
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige