Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 10:08:11
Summieren von Zellen mit bedingter Formatierung
26.04.2024 09:08:00
Export alle Tabellenblätter als csv - in bestimmten Ordner
26.04.2024 08:56:40
Über alle Spalten nur €-Werte zählen
26.04.2024 08:08:24
Pivot Vormonatsveränderung
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1684to1688
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
1684to1688
1684to1688
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zeile n mal kopieren

Zeile n mal kopieren
03.04.2019 08:44:22
Holger
guten Morgen,
in einer Tabelle steht in Spalte I eine Stückzahl. Ich möchte gerne, die jeweilige Zeile entsprechend der Anzahl in Spalte I kopieren.
Wenn z. B. in Spalte I eine 3 steht, soll diese Zeile noch 2 mal unter die aktuelle Zeile kopiert werden. Bei der nächsten Zeile dann entsprechend genau so.
Beispiel: https://www.herber.de/bbs/user/128866.xlsx
Gibt es hier eine Möglichkeit?
vielen Dank & Gruß
Holger

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

Betreff
Datum
Anwender
Anzeige
AW: Zeile n mal kopieren
03.04.2019 09:20:22
Nepumuk
Hallo Holger,
so?
Public Sub InsertRow()
Dim lngRow As Long, lngInsert As Long
With Application
.Calculation = xlCalculationManual
.EnableEvents = False
.ScreenUpdating = False
End With
For lngRow = Cells(Rows.Count, 9).End(xlUp).Row To 1 Step -1
For lngInsert = 1 To Cells(lngRow, 9).Value - 1
Call Range(Cells(lngRow, 1), Cells(lngRow, 9)).Copy
Call Range(Cells(lngRow + lngInsert, 1), _
Cells(lngRow + lngInsert, 9)).Insert(Shift:=xlDown)
Next
Next
With Application
.CutCopyMode = False
.Calculation = xlCalculationAutomatic
.EnableEvents = True
.ScreenUpdating = True
End With
End Sub

Gruß
Nepumuk
Anzeige
AW: Zeile n mal kopieren
03.04.2019 09:38:47
Torsten
Hallo Holger,
oder so: 

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 9 Then
If Not Target Is Nothing Then
With Target.EntireRow
.Copy
.Offset(1).Resize(Target.Value).Insert
End With
Application.CutCopyMode = False
End If
Else
Exit Sub
End If
End Sub
Gruss Torsten
AW: Zeile n mal kopieren
03.04.2019 09:42:43
Torsten
sorry kleiner Fehler drin, nochmal 

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 9 Then
If Not Target Is Nothing Then
With Target.EntireRow
.Copy
.Offset(1).Resize(Target.Value - 1).Insert
End With
Application.CutCopyMode = False
End If
Else
Exit Sub
End If
End Sub

Anzeige
AW: Zeile n mal kopieren
03.04.2019 12:02:22
Holger
perfekt. Vielen Dank :-)

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige