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

Forumthread: Zeilen kopieren mit einzelnen Elementen einer Zelle

Zeilen kopieren mit einzelnen Elementen einer Zelle
31.08.2023 20:31:46
S_N_2023
Liebes Forum

Ich habe eine Datei in der verschiedene Zeilen sind und pro Zeile ist ein Datensatz (in der Beispieldatei 3 Datensätze). In den Spalten O, P, Q sind mehrere Nummern notiert. Immer getrennt mit ",". Pro Datensatz ist die Anzahl dieser Nummern immer identisch bei O, P und Q. Nun müsste der Datensatz so oft kopiert werden analog der Anzahl Werte in diesen Zellen (oder Anzahl "," +1).

Die Schwierigkeit dabei ist, dass zwar jeweils die vollständigen Werte für die Spalten A - N kopiert werden dürfen, aber nur ein Wert aus O - Q. Dort jeweils immer der Wert an erster, zweiter, dritter Stelle usw. Es kann sein, dass in einem Datensatz bis zu 70 Elemente sind und entsprechend 70 Zeilen generiert werden müssen.

Hier die Datei: https://www.herber.de/bbs/user/162629.xlsm

Vielen Dank
Stefan
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Zeilen kopieren mit einzelnen Elementen einer Zelle
31.08.2023 22:05:44
Alwin Weisangler
Hallo Stefan,

das sollte so reichen:


Option Explicit

Sub Struktuieren()
Dim arrWerte(), arrPosten, i&, j&, lz&
With Tabelle1
For i = 3 To 5
arrWerte = .Range(.Cells(i, 1), .Cells(i, 14))
arrPosten = Split(.Cells(i, 15), ",")
For j = 0 To UBound(arrPosten)
lz = .Cells(Rows.Count, 1).End(xlUp).Row + 1
.Cells(lz, 1).Resize(UBound(arrWerte, 1), UBound(arrWerte, 2)) = arrWerte
.Cells(lz, 15) = arrPosten(j)
Next j
Next i
End With
End Sub

https://www.herber.de/bbs/user/162632.xlsm
Gruß Uwe
Anzeige
AW: Zeilen kopieren mit einzelnen Elementen einer Zelle
01.09.2023 13:59:44
S_N_2023
@Alwin Weisangler: das hat extrem geholfen. Vielen Dank :-)
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige