|
Hallo liebe Community,
ich hab mich bereits versucht, scheitere jedoch aufgrund von schlechter VBA Kenntnisse.Ich benötige ein Makro in Excel, welches folgendes erledigt:
Ich habe eine Mappe in der sich viele Zeilen befinden. Und am Ende eine Spalte, welche eine Summe gibt (von 0 bis x). Alle Zeilen mit Summe 0 sollen nun 1 mal in ein neues Tabellenblatt kopiert werden und alle Zeilen mit Summe n sollen n+1 mal kopiert werden. Die Schleife soll also von oben nach unten durchlaufen und die Zeilen kopieren.
Falls eine Zeile leer ist, soll diese nicht kopiert werden. Das ist mein bisheriger Code, der auch funktioniert für Summe 0 -> 1x kopieren, jedoch nicht für n -> n+1 kopieren.
Sub MakroTest()
For i = 5 To 99
j = Cells(i, 12)
If IsEmpty(j) Then GoTo hier
If j = 0 Then j = 1
For anz = 1 To j
Range(Cells(i, 1), Cells(i, 5)).Copy Destination:=Sheets("Test Makro").Range("A" & Sheets("Test Makro").Range("A1000000").End(xlUp).Row + 1)
Next anz
hier:
Next i
End Sub
Hoffentlich könnt ihr mir hierbei helfen. Danke!
Grüße
Max
|