VorBajanPaul ()
Schwaches lastRow so lang, i wie lang
Application.ScreenUpdating = falsch
lastRow = ActiveSheet.UsedRange.Rows.Count
Für i = lastRow zu 6 Schritt -1
Wenn nicht IsNull (Reihen (i). Text) und IsNull (Reihen (i - 1).Text) und nicht IsNull (Reihen (i - 2).Text) und _
Nicht IsNull (Reihen (i - 3).Text) und nicht IsNull (Reihen (i - 4).Text) und nicht IsNull (Reihen (i - 5).Text) dann
Strecke (Reihen (i - 5), Reihen (i)). Löschung
I = i - 5
Beenden wenn
Zunächst
Application.ScreenUpdating = ausrichten en
Enden-Unterseeboot
|