For Next-Schleife mit Ermitteln letzte Zeile
13.05.2015 02:05:00
Siggi07
nun bastele ich seit geraumer Zeit an einer Schleifenlösung, von der ich dachte, sie wäre relativ einfach, scheint sie aber doch nicht zu sein.
Es handelt sich um eine Liste von Buchungen, die u.a. 2 Spalten enthält für Betrag (Spalte J) und Steuerbetrag (Spalte K). Wenn in K ein Steuerbetrag steht - also 0 - dann soll die Zeile kopiert und unterhalb der Ursprungszeile eingefügt werden, der Steuerbetrag wird in dieser neuen Zeile in Spalt J geschrieben.
Nicht alle Buchungszeilen enthalten einen Steuerbetrag in Spalte K.
Leider funktioniert meine Lösung nur teilweise, wahrscheinlich weil sich die anfangs ermittelte letzte Zeile ja immer weiter nach unten verschiebt. Die Schleife bricht jedenfalls vorher ab, es werden nicht alle Zeilen mit Steuerbetrag kopiert.
Wer weiß die Lösung? Für Unterstützung bedanke ich mich im voraus!
Sub ForNext_test()
Dim i As Long
Dim i2 As Long
i2 = Range("C1048576").End(xlUp).Row
For i = 2 To i2
If Cells(i, 11).Value 0 Then
Rows(i & ":" & i).Copy
Cells(i + 1, 1).Select
Rows(ActiveCell.Row).Insert Shift:=xlDown
Cells(i + 1, 10).Value = Cells(i + 1, 11).Value
Cells(i, 11).Value = 0
Cells(i + 1, 11).Value = 0
i = i + 1
End If
Next
End
Sub
Anzeige