Zeile n mal kopieren

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

AW: Zeile n mal kopieren

03.04.2019 09:20:22

Nepumuk
AW: Zeile n mal kopieren

03.04.2019 09:38:47

Torsten
AW: Zeile n mal kopieren

03.04.2019 09:42:43

Torsten
AW: Zeile n mal kopieren

03.04.2019 10:19:29

Günther
AW: Zeile n mal kopieren - Formellösung

03.04.2019 11:05:18

Daniel
AW: Zeile n mal kopieren

03.04.2019 12:02:22

Holger

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

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

AW: Zeile n mal kopieren

03.04.2019 10:19:29

Günther

Moin,
oder mit "ohne VBA": http://www.excel-ist-sexy.de/1n-zeilen-kopieren/
Gruß
Günther

AW: Zeile n mal kopieren - Formellösung

03.04.2019 11:05:18

Daniel

Hi
schau dir das mal an, ist ne reine Formellösung
https://www.herber.de/bbs/user/128877.xlsx
Gruß Daniel

AW: Zeile n mal kopieren

03.04.2019 12:02:22

Holger

perfekt. Vielen Dank :-)

Beliebteste Forumthreads (12 Monate)

Forumthread: Zeile n mal kopieren

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

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread