Makro Zellen versetzt einfügen
10.06.2020 22:01:11
Jasmin
ich habe folgendes Problem:
Meine Tabelle hat 10 Spalten, ich muss in einem bereits bestehendem Blatt nur die Spalten 1, 2, 3, 5 und 7 einfügen. Auch muss jede Zeile x-mal untereinander kopiert werden (der Wert ändert sich bei allen Zeilen, z.B. die Zeile 1 wird 4x kopiert, die Zeile 2 wird 3 x kopiert, usw,). Weiters brauche ich die Werte der Spalten 8, 9 und 10 unterhalb der neuen Spalte 7.
Beispiel:
Meine Liste:
A B C D E F G H I J
1 2 3 4 5 6 7 8 9 10
Neue Liste:
A B C E G
1 2 3 5 7
1 2 3 5 8
1 2 3 5 9
1 2 3 5 10
Habe dieses Makro gefunden, jedoch kopiert es mir immer die ganze Zeile und ich schaffe es nicht es nötigen Änderungen zu schreiben.
Sub Xmalkopieren()
Dim i As Long, j As Long, anzahl As Long
j = 5
With Worksheets("STÜCKLISTE")
For i = 5 To .Cells(Rows.Count, "A").End(xlUp).Row
For anzahl = 1 To .Range("R" & i).Value
.Cells(i, "A").EntireRow.Copy Destination:= _
Sheets("KANTEN").Range("A" & j)
j = j + 1
Next anzahl
Next
End With
Worksheets("KANTEN").Select
End Sub
Danke für jede Hilfe =)