Sub test()
Dim x&
For x = 500 To 2 Step -1
If Cells(x, 1) = "Nettorechnung" And Cells(x - 1, 1) = "Bruttorechnung"
Then Rows(x - 1).Delete Shift:=xlUp
End If
Next
End Sub
So jetzt jetzt sieht vernünftig aus. Hierbei löscht der allerdings alle Bruttorechnungen.
Hab das mal versucht mit einer Schleife vor der eigentlich Schleife. Er soll von unten anfangen zu zählen und sobald, er die erste Bruttorechnung findet, soll er alle nachfolgenden Bruttorechnungen löschen. Habs mehrfach probiert und getestet, der Code ist jedoch falsch.
Sub test2()
Dim a
Dim b
Dim x&
For x = 500 To 2 Step -1
If Cells(x, 1) = "Bruttorechnung" Then
Cells(x, 1) = a
End If
Next
For b = a To 2 Step -1
If Cells(b -1, 1) = "Bruttorechnung" Then
Rows(b - 1).Delete Shift:=xlUp
End If
Next
End Sub
Wie ist es generell möglich eine Schleife rückwärts laufen zu lassen, bis bestimmter Wert erreicht ist und diese Zelle dann an die nächste Schleife zu übergeben?
VG Danny
|