Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1944to1948
1944to1948
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zeilen kopieren mit einzelnen Elementen einer Zelle

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

Gültigkeitsprüfung in Bezug auf andere Zelle
Erwin

Geschätztes Forum!
Ich möchte in Zelle A1 eine Gültigkeitsprüfung einfügen.
Die Gültigkeit soll mir dort Eingaben bis zur Höchstzahl der in A2 vorhandenen Zahl erlauben.
zB. Wenn in A2 die Zahl 5 steht, soll die Eingabe in A1 bis höchstens bis zur Zahl 5 (also 1,2,3,4,5) erlaubt sei...
14.08.2008 14:06:00
Thread-ID: 1001854
5 Beiträge
VBA Zellen mit x kopieren aber nur bestimmte Zellen
balta

Hallo zusammen,
habe folgendes problem, undzwar sieht meine Tabelle so aus
__A____B______C______D_____E_______F_____G____H
1_x___alf___test1_________________1234___a____ist ein Auto
2_y________________Ulf____test2__________b____ist ein Krad
3
4
5
6_y_____________...
26.09.2008 23:48:47
Thread-ID: 1012775
6 Beiträge
Zelle in andere Tabelle mit Button kopieren
Benny

Hallo Zusammen!
Kann mir jemand weiterhelfen? Wie kann ich die unten stehende Formel entsprechend anpassen?
Private Sub CommandButton2_Click() Dim wks As Worksheet Set wks = Worksheets("Änderungsanträge") wks.Range("C3") = wks.Range("D3") End Sub
Danke im Voraus!
Benny
07.10.2008 10:06:48
Thread-ID: 1014629
4 Beiträge
Hyperlink soll je nach KW auf andere Datei verw.
Alex

Hallo,
gleich einmal vorweg, ich bin neu im Forum und hoffe, dass ihr mir bei meinem kleinen Hyperlink- Problem helfen könnt.
Folgende Aufgabe sollte gelöst werden.
Ich möchte einen Hyperlink einrichten, der automatisch je nach Kalenderwoche auf das entsprechende Bestellformular ve...
11.10.2008 12:37:00
Thread-ID: 1015732
3 Beiträge
Hintergrundfarbe auf Grund Wert in anderer Zelle
Roger

Guten Morgen,
ich suche eine Lösung für folgendes Problem: In der Spalte F von Zeile 4 bis 300 habe ich folgende werte stehen: entweder nichts, Ja oder Nein. Nun will ich zwecks übersicht in Spalte A in den Zellen 4 bis 300 Farben als Hintergurnd haben. Wenn in Zelle F4 nichts steht, dann i...
18.12.2008 08:21:58
Thread-ID: 1033737
10 Beiträge
Inhalt Zelle/Text mit "=" kopieren
Go

Hallo AlleMiteinander,
ich bin auf folgendes Problem gestossen, dessen Lösung ich suche:
Ein bestimmter Bereich eines Worksheets wird mit Textdaten beschrieben (deren Ursprung via CopyPaste aus einer anderen Anwendung stammen).
Diese werden etwas bereinigt und sollen anschliesend in...
20.12.2008 01:12:00
Thread-ID: 1034334
4 Beiträge
Hyperlinks als Text
Markus

Hallo,
ich habe im Archiv bereits gesucht, aber nix passendes gefunden.
Ich schreibe eine grössere Tabelle mit vielen LINKS
Z.B. info@hammer.ch, www.meier.ch, \\pdc\LaufwerkC$, etc.
Sobald ich diese Werte in eine Tabelle schreibe, macht Excel sofort einen Hyperlink daraus.
W...
15.01.2009 08:18:00
Thread-ID: 1039886
8 Beiträge
Anzeige
Variabler Zellenbezug aus anderer Zelle
Carsten

Hallo Zusammen,
ich hoffe, jemand kann mir weiterhelfen. Ist bestimmt nur ne Sache von einer Minute, aber ich komme einfach nicht drauf.
Ich habe 2 Tabellenblätter. In Tabellenblatt 2 will ich in einer Zelle den Wert aus Zelle A1 aus dem 1 Tabellenblatt auslesen. Soweit kein Problem, da...
28.02.2009 12:11:54
Thread-ID: 1055036
12 Beiträge
Anzeige
Zellen mit Hyperlinks, umbennen?
nino

Hallo, ich bastle seit eine Woche an meiner Excel Tabellen, muss auch sagen, ich bin (mit Euere Hilfe)ziemlich weit gekommen.
Habe aber ein Paar frage an Experte;
Momentan bin ich bei: =HYPERLINK(Rechnung! D5;"Springe zu D5")
bei anklicken eine Zelle in Tabelle 3 mit diese Forme...
09.03.2009 23:01:34
Thread-ID: 1058393
2 Beiträge
Zelle mit Gültigkeitsabfrage kopieren
chsarto

Hallo suche mich den Wolf und finde den Weg nicht.
Ich habe ein Makro welches einen bestimmtenn Teil x mal kopiert, mit Formel und Formatierung.Alles so weit so gut. In einem bestimmten Bereich in Spalte G ist eine Gültigkeitsabfrage hinterlegt, diese wird jedoch nicht auf die neuen Spalten...
23.04.2009 14:04:36
Thread-ID: 1070682
4 Beiträge
durch eine bestimmte Zelle andere Tabelle aufrufen
Jürgen

Hallo Excel Forum,
habe glaube ich ein nur kleines Problem. Ich möchte, wenn eich eine bestimmte Zelle aktiviere (in diesem Fall die Zelle N3) in eine anderes Tabellenblatt springen - an eine bestimmte Position. Hier wäre das Tabelle 123 Zelle F10. Das ganze soll dann so weitergehen: wenn...
26.05.2009 13:18:20
Thread-ID: 1077383
6 Beiträge
Nur Zellen mit Text kopieren
Peter

Hallo
ich bin gerade dabei eine Excel Tabelle zu bearbeiten und haben ein Auswahltabellenblatt wo ich über
Kontrollkästchen verschiedene Options auswählen kann, bzw noch die Anzahl angeben kann.
In einen Datentabellenblatt werden mir untereinander die Daten ausgegeben.
Das heißt...
15.06.2009 12:58:41
Thread-ID: 1081552
21 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige