Live-Forum - Die aktuellen Beiträge
Datum
Titel
27.04.2024 12:08:58
Mittelwertwenn - ich kapiere es nicht :-(
26.04.2024 21:51:33
Idee für Grafik
26.04.2024 21:29:07
PQ zufällige Reihenfolge
26.04.2024 17:18:47
Große Datenmenge in komplexes Diagramm verpacken
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1944to1948
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1944to1948
1944to1948
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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 :-)

302 Forumthreads zu ähnlichen 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
Anzeige
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
Anzeige
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
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
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
Anzeige

Links zu Excel-Dialogen

Frame

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
4
5
3
2
5
9
3
7
11
1
3
5
20
14
2
8
2
3
3
4
4
1
2
2
2