Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.09.2025 10:29:46
Wert aus einer Zelle bei jeder Eingabe in neue Zelle
26.09.2025 08:51:00
Teilinhalt einer Zelle vergleichen
25.09.2025 23:04:12
Einen von drei möglichen Einträgen in einer Zeile suchen
25.09.2025 19:59:48
Lebenserleichternde Datei, im Bezug auf die Essensauswahl
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
1896to1900
1896to1900
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zeile mit Schleife mehrfach kopieren

Forumthread: Zeile mit Schleife mehrfach kopieren

Zeile mit Schleife mehrfach kopieren
01.09.2022 08:54:32
Sophie
Guten Morgen zusammen,
steh grad auf dem Schlauch und finde einfach keine Lösung zu folgendem Sachverhalt:
Ich habe eine Liste mit Produkten, in Spalte AK steht die Anzahl.
Jetzt möchte ich mit einer Schleife die jeweilige Zeile so oft kopieren und am Ende einfügen, wie die Zahl in Spalte AK ist.
Habt ihr eine kurzen, knackigen Code der das löst?
Danke Euch
Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zeile mit Schleife mehrfach kopieren
01.09.2022 09:16:41
UweD
Hallo
so?

Sub Kopieren()
Dim TB As Worksheet, Ende As Integer, LR As Integer, Anz As Integer, i As Integer
Dim SP As Integer, Z1 As Integer
Set TB = Sheets("Tabelle1")
SP = 37 ' Spalte AK
Z1 = 2 ' Erste Zeile mit Daten
With TB
Ende = .Cells(.Rows.Count, SP).End(xlUp).Row 'letzte Zeile der Spalte
For i = Z1 To Ende
Anz = .Cells(i, SP)
If Anz > 0 Then
LR = .Cells(.Rows.Count, SP).End(xlUp).Row + 1 'erste Freie Zeile
.Rows(i).Copy .Rows(LR).Resize(Anz)
End If
Next
End With
End Sub
LG UweD
Anzeige
AW: Zeile mit Schleife mehrfach kopieren
01.09.2022 09:31:42
GerdL
Guten Morgen Sophie!

Sub Unit()
Dim LZ As Long, NZ As Long, Zeile As Long
LZ = Cells(Rows.Count, "AK").End(xlUp).Row
NZ = LZ + 1
For Zeile = 2 To LZ
If IsNumeric(Cells(Zeile, "AK").Text) And Cells(Zeile, "AK") > 0 Then
Rows(Zeile).Copy Rows(NZ).Resize(Cells(Zeile, "AK"))
NZ = NZ + Cells(Zeile, "AK")
End If
Next
End Sub
Gruß Gerd
Anzeige
AW: Zeile mit Schleife mehrfach kopieren
01.09.2022 10:46:32
Daniel
Hi

dim Zelle as Range
for each Zelle in Range("AK:AK").SpecialCells(xlcelltypeconstants, 1)
Zelle.EntireRow.Copy Destination:=Cells(Rows.count, 1).end(xlup).Offset(1, 0).Resize(Zelle.Value)
Next
Voraussetzungen:
- in Spalte AK stehen die Anzahlen als Fixwerte. Sind es Formeln, nimm xlcelltypeformulas statt xlcelltypeconstants
hast du Formeln und feste Werte gemischt, dann doof
- die Liste ist in Spalte A befüllt.
Gruß Daniel
Anzeige
AW: Zeile mit Schleife mehrfach kopieren
01.09.2022 12:07:02
Nadine
Ich danke Euch, genau das was ich gesucht habe!
;

Forumthreads zu verwandten Themen

Zeilen Kopieren mit Formeln u. Formaten
Lemmi

Hallo zusammen,
ich möchte einen Block (5Zeilen) am Ende einer Tabelle einfügen!
Diese Zeilen sollen mit ihren Formaten unf Formel Kopiert und am Ende der Leiste eingefügt werden!
Die Formeln sind in den Roten Zellen.
Die Zellen sonst sind bis auf Spalte A und B ohne Inhalt!
11.08.2008 14:11:35
Thread-ID: 1000856
5 Beiträge
Anzeige
Zeilen mit Makro aus Mustertabelle kopieren
obelix-xxl

Hallo,
ich wende mich an dieses Forum mit der Bitte eine Makrolösung aufzuzeigen.
Udo hat mir gestern eine Lösung zum Kopieren von Zeilen hier ins Forum gestellt. Diese ist auch so genau richtig.
Nachdem ich diese nun einsetzen kann, benötige ich eine weiteres Kopiermakro.
In me...
26.09.2008 16:29:07
Thread-ID: 1012698
10 Beiträge
Zeilen mit ähnlichem Inhalt kopieren
Lauren

Hallo zusammen,
sitze wiedermal hier in VBA/Excel fest und hoffe auf Hilfe :)
Ich habe eine Excel Datei mit ca. 7000 Zeilen.........nun möchte ich die Inhalte etwas übersichtlicher gestalten aber händisch wäre das ja ein riiiiiiiiiesen Aufwand, daher bin ich auf der Suche nach einem Mak...
10.02.2009 14:31:49
Thread-ID: 1049097
4 Beiträge
Anzeige
Kopieren von Formeln mit externen Links
Formeln

Hallo
was ich versuche zu machen ist folgendes:
I habe zwei Exceldateien. Eine (Quelle) welche viele Formeln mit externen Verweisen enthält. Ich muss die Formeln aus der Quelldatei in die Zieldatei kopieren. Das an sich stellt natürlich kein Problem dar. Jedoch werden die externen Verwe...
15.06.2009 10:03:59
Thread-ID: 1081503
6 Beiträge
Makro um Zeilen mit gleichem Inhalt zu kopieren
christian

Hallo,
vielleicht kann mir jemand von euch helfen....
Ich habe eine Ausgangstabelle mit verschiedenen Produktnummern in Spalte A und unterschiedlichen
anderen Informationen in den Spalten B-U. Die Daten in dieser Tabelle habe ich sortiert, so dass in Spalte
A alle gleichen Produ...
15.10.2009 18:56:31
Thread-ID: 1109906
8 Beiträge
Formel kopieren mit VBA bis leere Zeile
jo_cindy

HAllo, habe noch keine Formel im Archiv gefunden, die bei mir funktioniert.
Ich möchte in Spalte X ab Zeile 2 die folgende Formel einsetzen: Selection.NumberFormat = "h:mm"
ActiveCell.FormulaR1C1 = "=RC[-8]/24" Diese Formel soll dann in Spalte X solange kopiert werden, bis in Spalte A...
27.10.2009 11:02:17
Thread-ID: 1112437
6 Beiträge
leere Zeile mit Text und Formel dynamisch einfügen
christian

Hallo zusammen,
ich habe folgendes Problem das ich mit meinen wenigen VBA Kenntnissen nicht lösen kann.
Ich habe eine Tabelle mit n Zeilen.
- Nach jeweils ca. 53 Zeilen sollte eine Zeile mit dem Text "Zwischentotal " (Spalte C) und in die Summen-Formel für die 53 Zeilen (Spalte H)...
28.11.2009 13:36:30
Thread-ID: 1120637
3 Beiträge
Anzeige
Zellen mit Formeln einer Zeile kopieren
Jürgen

Hallo VBA-Profis,
da ich hinsichtlich VBA ein Anfänger bin, hoffe ich hier im Forum Hilfe zu bekommen.
Ausgangslage:
In größeren Excel-Tabellen sind neben Daten auch Formeln vorhanden.
Tabelle beginnt z.B. ab A4 und erstreckt sich bis Z800 (Zeile 4 sind Überschriften)
In den...
13.12.2009 15:54:18
Thread-ID: 1123590
3 Beiträge
Anzeige
kopieren zellinhalte mit zeilenumbruch
Markus

Liebe Excel-Spezialisten,
Ich habe eine Excel-Mappe mit 2 Sheets; einem Quellsheet "Zusammenfassung" und einem Zielsheet "Export".
Im Quellsheet sind in der Spalte A Probennummern (z.B BX0055488, BX00554557, usw.) eingetragen Ein und diesselbe Probennummer kann unterschiedlich oft vorko...
20.04.2010 19:23:35
Thread-ID: 1152969
4 Beiträge
Zeilen mit Eintrag in bestimmter Spalte kopieren
Kai

Hallo,
ich habe eine Arbeitsmappe mit Teilnehmern an einem Projekt auf dem ersten Blatt. In den ersten Spalten stehen die Namen und Nummern, in folgenden Spalten eird eingetragen, welche Voraussetzungen die Teilnehmer schon erfüllt haben (dann gibt es eine "1") und welche eben nicht (dann g...
06.05.2010 22:44:17
Thread-ID: 1155863
2 Beiträge
Formel mit Zeilenbezug auf eine Zelle
Wolfgang

Hallo Excel-Team,
ich weiß nicht weiter, aber ihr könnt sicher ...
Situation:
A1 "Bonn"
A2 "Berlin"
Wenn in B1 den Wert 2 steht, soll in C1 der Name aus A2 "Berlin" stehen, und
wenn in B1 den Wert 1 steht, soll in C1 der Name aus A1 "Bonn" stehen.
Wie muss die Formel...
18.05.2010 13:29:56
Thread-ID: 1157636
9 Beiträge
Zeile mit Formaten, Formeln und dynamische Summe
igoryg

Hallo Leute,
ich brauche eure Hilfe. Ich habe eine Tabelle, hinter den verschiedenen grauen Zellen sind etliche Formate und Formeln hinterlegt. Die Weißen Felder sind meine Eingabefelder, die teilweise als DropDownBox angelegt sind.
Ich möchte nun ein Makro einfügen, das bei drücken de...
22.07.2010 12:21:53
Thread-ID: 1168253
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