ich sitze seit 2 Stunden an einem Problem, das ich alleine nicht lösen kann. Ich habe eine Tabelle, in deren Spalte Y Beträge aufgelistet sind. Ich benötige allerdings nur Beträge != 0,-. Die 0,- Zeilen sollen komplett in die Tabelle "0 " verschoben werden. Das nachfolgende Makro funktioniert bei den ersten beiden Zeilen, danach überspringt es Zeilen und verschiebt sogar Zeilen deren Betrag > 0 ist. Ich habe mal die Variablen überwacht, die beiden Zeilenzähler arbeiten korrekt und zeigen die richtigen Zeilen an. Wenn ich E.Value überwache zeigt er mir aber ab der 2. Zeile Beträge aus darunterliegenden Zeilen an. Irgendwie hab ich ein Brett vorm Kopf und finde den Fehler nicht. Ich würde mich freuen, wenn mir jemand weiterhelfen könnte.
Hier das Makro:
Sub Aufteilen()
Dim E As Variant
Dim L0 As Long 'Zeilenzähler Bestand
Dim N0 As Long 'Zeilenzähler 0
Dim ZB As Long 'Gesamtzeilenzahl
ZB = ActiveSheet.UsedRange.Rows.Count
N0 = 2
L0 = 2
For Each E In Worksheets("Bestand").Range("Y2:Y" & ZB)
ActiveCell.Value = Cells(L0, 25)
If E.Value = "0" Then
Sheets("Bestand").Select
Range(L0 & ":" & L0).Cut
Sheets("0 ").Select
Worksheets("0 ").Cells(N0, 1).Select
ActiveSheet.Paste
N0 = N0 + 1
End If
L0 = L0 + 1
Next E
End Sub
Hier die Beispieldatei:
https://www.herber.de/bbs/user/35859.xls
Viele Grüße Sebastian