Live-Forum - Die aktuellen Beiträge
Datum
Titel
17.10.2025 17:57:35
Zellen-Name aus A1 nach H1 übertragen mit Prä- + Suffix
17.10.2025 11:36:58
verschachteltes Dropdown-Menü
17.10.2025 10:28:49
Call Anweisung
16.10.2025 18:38:17
Zusammenfassung nach Personalnummer
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1976to1980
1976to1980
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zeilen gemäss spalte 2 Kopieren und unterhalb einfügen

Forumthread: Zeilen gemäss spalte 2 Kopieren und unterhalb einfügen

Zeilen gemäss spalte 2 Kopieren und unterhalb einfügen
19.05.2024 11:25:26
mablu
Hallo ich sollte ein Makro erstellen, weiss aber nicht wie das gehen könnte!
Die Liste enthält Angaben und in Spalte 2 (B) ist jeweils die Anzahl der Gaben für Tombola, diese sollte ich in der Angegebenen Menge als Zeilen sehen, das heisst wenn in Zelle B2 ein Wert von 10 steht sollte die Zeile 10 x vorkommen (Kopieren und einfügen das darf auch auf eine neues Blatt erfolgen) damit ich die Nummern danach vergeben kann.

Kann mir hier jemand helfen?

https://www.herber.de/bbs/user/169570.xlsm

Danke im Voraus für eure Bereitschaft Gruss mablu
Anzeige

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zeilen gemäss spalte 2 Kopieren und unterhalb einfügen
19.05.2024 11:45:19
RPP63
Moin!
Erstelle eine Tabelle2 und kopiere zunächst die Überschriftenzeile dorthin.
Dann lasse folgendes Makro laufen: 
Sub Multiplier()

Dim i&, k&

For i = 2 To 9

  For k = 1 To Tabelle1.Cells(i, "B")

    Tabelle1.Rows(i).Copy _

      Tabelle2.Cells(Rows.Count, 1).End(xlUp).Offset(1)

  Next

Next

End Sub


ergibt
 ABCDE
1GegenstandAnzahlWertTotal WertSponsor
2Velo1200,00200,00Landi
3Gutscheine230,0060,00Audi
4Gutscheine230,0060,00Audi
5Trockenfleisch510,0050,00Denner
6Trockenfleisch510,0050,00Denner
7Trockenfleisch510,0050,00Denner
8Trockenfleisch510,0050,00Denner
9Trockenfleisch510,0050,00Denner
101 kg Mehl30 138,00Mühle
111 kg Mehl30 138,00Mühle
121 kg Mehl30 138,00Mühle


Gruß Ralf
Anzeige
AW: Zeilen gemäss spalte 2 Kopieren und unterhalb einfügen
19.05.2024 12:16:17
{Boris}
Hi,

alternativ mal eine Formellösung, die auch in Deiner Excelversion funktioniert.

=WENNFEHLER(INDEX(XMLFILTERN(""&WECHSELN(GLÄTTEN(TEXTKETTE(WIEDERHOLEN(A$2:A$9&"#";B$2:B$9)));"#";"")&"";"//y");ZEILEN($1:1));"")

So weit runterkopieren bis zur Summe der Anzahl (in Deinem Fall also 65).

Erzeugt Dir die Gegenstände in der gewünschten Anzahl.

VG, Boris
Anzeige
Noch einfacher
19.05.2024 11:49:59
RPP63
Die For-Next mit k braucht es nicht: 
Sub Multiplier()

Dim i&

For i = 2 To 9

  Tabelle1.Rows(i).Copy _

    Tabelle2.Cells(Rows.Count, 1).End(xlUp).Offset(1).Resize(Tabelle1.Cells(i, "B"))

Next

End Sub
AW: Zeilen gemäss spalte 2 Kopieren und unterhalb einfügen
19.05.2024 11:55:49
mablu
Danke das funktioniert schon mal so wie ich das beschrieben habe, jetzt sehe ich dass dass in der Kopierten Liste der Artikel natürlich immer noch x mal in Spalte B aufgeführt wird hier sollte natürlich immer die 1 stehen weil ich es ja jetzt aufgelöst haben wie müsste dann das Makro angepasst werden?
Ich könnte das von Hand machen aber wenn ich es später nochmal brauche wäre es schön ich hätte es schon eingebaut.

Vielen lieben Dank mablu
Anzeige
Ich könnte das von Hand machen
19.05.2024 12:05:29
RPP63
Da ich Deine Excel-Kenntnisse nicht einschätzen kann, mal das Vorgehen "von Hand":
• markiere B2 in Tabelle2
• mit Strg+Umschalt+↓ markierst Du die gefüllte Anzahl-Spalte
• gebe 1, gefolgt von Strg+Enter ein
• fettich ist die Kiste!

In VBAisch ist das 
Sub Multiplier()

Dim i&

With Tabelle2

  For i = 2 To 9

    Tabelle1.Rows(i).Copy _

      Tabelle2.Cells(Rows.Count, 1).End(xlUp).Offset(1).Resize(Tabelle1.Cells(i, "B"))

  Next

  .Range(.Range("B2"), .Range("B2").End(xlDown)) = 1

End With

End Sub
Anzeige
AW: Ich könnte das von Hand machen gelöst Danke!
19.05.2024 12:13:12
mablu
Vielen Dank auch für das von Hand eingeben, ich hab 2 mal die 1 eingegeben und dann runtergezogen, aber deine Version gefällt mir besser!
Das Makro macht jetzt genau das was ich möchte.

Wünsche einen tollen Tag
Lieber Gruss mablu
;

Forumthreads zu verwandten Themen

Zeilen variabel oft kopieren und einfügen
Bernd

Hallo Forum,
ich tüftle seit einiger Zeit vergebens an folgender Aufgabe und bitte um eure Hilfe:
Ich habe in einer Mappe zwei Sheets: Tab1 und Tab2
In Tab1 importiere ich Daten mit Hilfe des Textkonvertierungsassistenten aus einer txt-Datei.
Die txt-Datei kann unterschiedlich v...
03.09.2009 17:41:35
Thread-ID: 1100389
9 Beiträge
Zeilen individuelle Kopieren und einfügen
Martin

Hallo zusammen,
ich habe folgende - eigentlich recht einfaches - Problem, das ich aber nicht lösen kann.
Ich habe eine Excel-Tabelle die wie folgt aussieht:
aaa 5
bbb 6
ccc 2
Die letzte zeile zeigt an, wie oft die Zeile benötigt wird. Ausgegeben werden soll nach...
22.10.2011 12:08:19
Thread-ID: 1234979
8 Beiträge
Makrocode: Zeilen kopieren und einfügen
David

Hallo,
ich bräuchte einen Makro Code der folgendes macht:
1) bestimme die unterste Zeile (bezogen auf Spalte A) in dem aktiven Tabellenblatt
2) kopiere diese Zeile + die nächst oberen 9 Zeilen
3) füge diese kopierten Zeilen unter die unterste Zeile aus Schritt1 ein und mache daz...
14.11.2012 14:46:17
Thread-ID: 1286631
7 Beiträge
Nur sichtbare Zeilen kopieren und einfügen
Tim

Hallo zusammen,
ich habe eine Tabelle mit bereits mehreren Makros (daher auch ausgeblendete Zeilen).
Nun möchte ich der Übersicht halber nur die sichtbaren Zeilen:
- ab Zeile 12 bis zum Ende des Worksheets (das Ende variiert)
- und nur Spalte A bis Spalte D
kopieren und in...
23.09.2013 11:16:11
Thread-ID: 1331885
6 Beiträge
Zeilen kopieren und einfügen, aber nicht am Ende
Huffi

Guten Morgen,
ich habe eine Tabelle erstellt, die aus unterschiedlichen Kostenstellen besteht.
Mittels Makro kann ich eine zusätzliche makierte Zeile einfügen, bzw. löschen.
Die einzelnen Kostenstellen haben eine Zwischensumme.
Am Ende der Tabelle werden die Summen der einzelne...
07.11.2013 09:19:57
Thread-ID: 1337444
4 Beiträge
Kopierte Zellen einfügen / Summe wird nicht aktual
Marcus

Moin,
ich habe Excel 2013 in Betrieb und stehe vor einem kleinen Problem. Vielleicht kennt das jemand und weiß Rat?
Ich schildere das kurz:
A1 = Überschrift
A2-A5 = Werte
A6 = Summe A2-A5
Wenn ich jetzt in A6 "kopierte Zellen einfüge" mit einem Wert, wird die Summe in A6...
30.07.2014 14:48:46
Thread-ID: 1373172
3 Beiträge
bestimmte Anzahl an Zeilen kopieren und einfügen
Hans

Hallo zusammen,
habe ein Excel-Sheet mit ca. 1.800 Zeilen und 32 Spalten.
Nun möchte ich, dass ein Makro die Daten aus Zeile H6:H37 kopiert und in G38:G69 einfügt. Anschließend soll Zeile I6:I37 kopiert werden und in Zeile G70:G81 kopiert werden, usw. bis zur letzten Spalte.
Kann mi...
17.09.2014 10:35:19
Thread-ID: 1382027
2 Beiträge
Tabellenzeilen suchen, kopieren und einfügen
Chris

Hallo liebe Forumsmitglieder,
ich möchte in ein Excel Tool ein Makro einbauen, das folgende Funktionen hat:
1) Ich kann einen Dateipfad für eine Quellexcel auswählen, aus dem ich Daten Importieren möchte. (bereits erledigt)
2) Das Makro soll beim Aktivieren die Quellexcel öffnen (be...
24.09.2014 18:59:09
Thread-ID: 1383269
5 Beiträge
Anzeige
VBA Tab1 Zeilen kopieren und in Tab2 einfügen
mehmet
Hallo Forum,
ich komme einfach nicht weiter.
Es sollen die Inhalte (Value) von Tab1 N110:U130 in Tab2 Spalte AA..:AN.. (Zeilen in gelb) eingefügt werden.
Es soll also in Tab1 Zelle N110 und Zelle O110 geguckt werden ob Zellen belegt sind.
Wenn beide Zellen belegt, dann soll Tab1 Zei...
24.10.2014 21:12:24
Thread-ID: 1388524
14 Beiträge
Kopierte Zellen in TAbelle einfügen
Dieter

Liebe Excelspezialisten,
guten morgen!
ich dreh mich wiedermal im Kreis.
Was passiert:
ich kopiere Daten aus der Tabelle "vorlage" mit:
Range("a1:an33")=select
selection.copy
1. Frage: wie kann ich diesem kopiertenZeug einen Namen geben?
denn später an anderer St...
27.01.2015 10:20:17
Thread-ID: 1405314
6 Beiträge
Zeilen kopieren und als Bild einfügen
Sandja

Guten Abend
Ich bin auf der Suche nach Hilfe.
Die Ausgangslage: Ich habe 4 Tabellenblätter, welche verschiedene Spaltenbreiten und verschiedene Anzahl Zeilen haben. Ich möchte die Zeilen auf den jeweiligen Blättern kopieren und in einem Neuen Tabellenblatt als Bild einfügen. Die Bilde...
13.12.2016 18:52:41
Thread-ID: 1529951
5 Beiträge
2 Zeilen kopieren und einfügen
Erik

Hallo Excelgemeinde,
ich komme hier einfach nicht weiter,
ich suche nach einem VBA Code für das Kopieren und Einfügen von 2 Zeilen.
Und zwar sollen immer die Zeilen 5 und 6 direkt über der jeweils aktiven Zeile eingefügt werden.
Unter der Voraussetzung, dass:
- die aktive Ze...
05.11.2017 18:05:30
Thread-ID: 1589653
3 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
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