Bitte um Hilfe
wir haben 10 stellige Artikelnummern, die in 10 Spalten aufgeteilt sind.
Wenn in vier oder mehr Spalten der Abstand zur Vorziffer 1 beträgt, soll dies Zeile gelöscht werden.
Danke
Walter
Sub xxx()
Dim arrValues, iCount As Integer, rngDel As Range
Dim i As Long, j As Long
arrValues = Range("A1").CurrentRegion
For i = 1 To UBound(arrValues)
iCount = 1
For j = 2 To 10
If arrValues(i, j) = arrValues(i, j - 1) + 1 Then
iCount = iCount + 1
Else
iCount = 1
End If
If iCount = 4 Then
If rngDel Is Nothing Then
Set rngDel = Cells(i, 1)
Else
Set rngDel = Union(rngDel, Cells(i, 1))
End If
Exit For
End If
Next j
Next i
If Not rngDel Is Nothing Then rngDel.EntireRow.Delete
End Sub