AW: Zeile x-mal duplizieren und einfügen
25.03.2022 14:26:27
Daniel
Das kann man natürlich auch per Makro machen.
wenns schon eine Sortierspalte gibt die man verwenden kann so (Spalte beim Sortieren ggf anpassen):
Sub Duplizieren()
Const Faktor As Long = 10
With Range("A1").CurrentRegion
.Copy
.Resize(.Rows.Count * Faktor).PasteSpecial xlPasteAll
End With
Range("A1").CurrentRegion.Sort key1:=Cells(1, 1), order1:=xlAscending, Header:=xlNo
End Sub
wenn man das Sortierkriterium zum zurücksortieren noch einfügen muss, dann so:
Sub Duplizieren()
Const Faktor As Long = 10
With Range("A1").CurrentRegion
With .Columns(.Columns.Count + 1)
.Formula = "=Row()"
.Formula = .Value
End With
End With
With Range("A1").CurrentRegion
.Copy
.Resize(.Rows.Count * Faktor).PasteSpecial xlPasteAll
End With
With Range("A1").CurrentRegion
.Sort key1:=.Cells(1, .Columns.Count), order1:=xlAscending, Header:=xlNo
.Columns(.Columns.Count).ClearContents
End With
End Sub
Gruß Daniel