Zeile i, i+1 löschen
04.03.2021 11:28:31
FL
leider nicht fündig geworden zu diesem Thema.
Ich möchte gerne unter Bedingung Zeilen! löschen. Es soll dabei die Zeile i und die danach also i+1 gelöscht werden.
Hier mein Pseudocode
Sub zwei_Zeilen_löschen_unter_Bedingung()
Dim i As Integer
Application.ScreenUpdating = Flase
For i = 20 To 450
If Cells(i,10).Value = "No" Then
Rows(i).Delete
End If
If Cells(i,5).Value = "" And Cells(i,2) "B" And Cells(i,2).Interior.ColorIndex = xlNone Then
Rows(i).Delete
End If
Next i
Application.ScreenUpdating = True
Range("A1").Select
End Sub
Vielleicht habt ihr da Tipps für mich :) Danke schonmal!
Viele Grüße