Anzeige
Archiv - Navigation
360to364
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
360to364
360to364
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Tabelle in weiteres ABlatt als Liste einfügen

Tabelle in weiteres ABlatt als Liste einfügen
14.01.2004 17:34:54
W.Epple
Hallo,
bin Makro- bzw VBA-Anfänger und habe in den FAQs für mein Problem keine Lösung gefunden. Vielleicht kann mir jemand helfen?
Ich habe eine Tabelle z.B.
000__101__102__103__104___..
201___11___12___13___14___..
202___21___22___23___24___..
203___31___32___33___34___..
..____..___..___..___..
(die Werte sind normalerweise nicht systematisch.. :-) )
.. aus dieser Tabelle will ich automatisch eine Liste erstellen, die
wie folgt aussehen soll.
101 201 11
101 202 21
101 203 31
..
102 201 12
102 202 22
102 203 32
..
103 201 13
103 202 23
103 203 33
..
Die Tabelle ist 100x100 Felder groß - gibt es 'ne Größenbeschränkung?
Im vorraus mal vielen Dank..

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

Betreff
Datum
Anwender
Anzeige
AW: Tabelle in weiteres ABlatt als Liste einfügen
14.01.2004 19:39:14
Beni
Hallo Epple,
bei diesem Makro muss 000 in A1 stehen, sonst muss das Makro angepasst werden.
ich habe Dir ein Beispiel angehängt.
Gruss Beni
https://www.herber.de/bbs/user/2954.xls


Sub Epple()
r = Cells(65536, 1).End(xlUp).Row
c = Cells(1, 255).End(xlToLeft).Column
For s = 2 To c
For z = 2 To r
e = Cells(65536, 1).End(xlUp).Row + 1
If z = 2 Then e = e + 1
Cells(e, 1) = Cells(1, s)
Cells(e, 2) = Cells(z, 1)
Cells(e, 3) = Cells(z, s)
Next z
Next s
End Sub

AW: Tabelle in weiteres ABlatt als Liste einfügen
15.01.2004 11:38:07
Wolf
Beni, herzlichen Dank für die prompte Lösung,
funktioniert wunderbar. Habe es nur noch auf die das 2.Arbeitsblatt
umgestrickt - müßte so jedoch auch funktionieren..

Sub MatrixZuListe()
ZeileGes = Cells(65536, 1).End(xlUp).Row
SpalteGes = Cells(1, 255).End(xlToLeft).Column
e = Cells(65536, 1).End(xlUp).Row + 1
For SpalteAkt = 2 To SpalteGes
For ZeileAkt = 2 To ZeileGes
e = e + 1
Worksheets("Liste").Cells(e, 1) = Worksheets("Tabelle").Cells(1, SpalteAkt)
Worksheets("Liste").Cells(e, 2) = Worksheets("Tabelle").Cells(ZeileAkt, 1)
Worksheets("Liste").Cells(e, 3) = Worksheets("Tabelle").Cells(ZeileAkt, SpalteAkt)
Next ZeileAkt
Next SpalteAkt
End Sub

Gruß Wolf
Anzeige

300 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige