Zeilen (Artikelliste) kopieren und mit Abwandlung einfügen

Hallo zusammen,

Ich habe ein Excel-Problem bei dem VBA hoffentlich helfen kann, leider fehlt mir dazu das nötige Wissen. Ich habe vor einiger Zeit schon ganz einfache VBA-Spielereien gebastelt, das ist aber leider viel zu lange her.

Ausgangslage ist eine Excel Artikelliste (5000 Artikel) mit einem Farbcode 0 in einer der Spalten. Weitere Spalten enthalten z.b. die Artikelmaße o.ä. Nun sollen sämtliche Artikel mehrfach dupliziert werden und unterhalb eingefügt werden, dabei soll der Farbcode 0 jedoch gegen einen anderen (z.B. 14c) ausgetauscht werden. Die Farbcodes sind in einem zweiten Tabellenblatt. Das ganze soll wiederholt werden, bis jeder der 5000 Artikel jeweils mit jedem der vorhandenen Farbcodes in der Liste enthalten ist.

Ich hoffe mein Problem ist zu verstehen und jemand kann mir einen Tip geben Danke vorab!

Grüße, Emil

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub aaa() Dim vntArtikel, vntFarben Dim i As Long, j As Long Application.ScreenUpdating = False With Sheets("Artikelliste").Cells(1, 1) vntArtikel = Intersect(.CurrentRegion, .CurrentRegion.Offset(1)) End With With Sheets("Farben").Cells(1, 1) vntFarben = Intersect(.CurrentRegion, .CurrentRegion.Offset(1)) End With For i = 1 To UBound(vntFarben) For j = 1 To UBound(vntArtikel) vntArtikel(j, 2) = vntFarben(i, 1) 'Farbcode aus Farben!A:A nach Artikelliste!B:B Next j Sheets("Artikelliste").Cells(1, 1).End(xlUp).Offset(1).Resize(UBound(vntArtikel), UBound(vntArtikel, 2)) = vntArtikel Next i End Sub

Hallo Udo,

vielen Dank erstmal - leider funktioniert es nicht wie gewünscht. Zunächst entschuldige ich mich für meine unklare Beschreibung, ich habe daher eine Beispieldatei mit deinem Code eingefügt.

Die Artikelliste enthält z.B. folgende Daten in den Spalten:
Artikelnummer, Farbcode, Höhe, Breite, Länge, etc.
Das Tabellenblatt Farbcodes enthält in Spalte A diverse Farbcodes.

Ausgangsliste:
Artikel: 1234 Farbcode: 0
Artikel: 5678 Farbcode: 0

Farbcodes:
1
2
3
4

Kombinierte Artikelliste/Zielliste:
Artikel 1234 Farbcode 0
Artikel 1234 Farbcode 1
Artikel 1234 Farbcode 2
Artikel 1234 Farbcode 3
Artikel 1234 Farbcode 4
Artikel 5678 Farbcode 0
Artikel 5678 Farbcode 1
Artikel 5678 Farbcode 2
Artikel 5678 Farbcode 3
Artikel 5678 Farbcode 4

Dein Code kombiniert beide Listen, allerdings steht in meiner endgültigen Liste dann lediglich der Artikel mit dem letzten der Farbcodes, ich gehe also davon aus, dass die Farbcodes jedes mal überschrieben werden und die Liste nicht um einen weiteren Farbcode "erweitert" wird.

Beliebteste Forumthreads (12 Monate)

Zeilen (Artikelliste) kopieren und mit Abwandlung einfügen

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

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread