Tweet
Bei folgendem Code kommt immer oben genannter Fehler. Hoffe jemand kann mir helfen das zu lösen.
Dim ar As Variant
Dim i, pos As Long
ar = Range("D2:N" & 65200)
For i = 2 To UBound(ar)
Select Case ar(i, 1)
Case 0
ar(i, 7) = Empty
ar(i, 11) = Empty
Case 1
ar(i, 8) = Empty
ar(i, 10) = Empty
End Select
If ar(i, 1) <> ar(i - 1, 1) Then
pos = i
Range("D" & pos).Resize(8).EntireRow.Delete
End If
Next
Gruß Ferri
Dim ar As Variant
Dim i, pos As Long
ar = Range("D2:N" & 65200)
For i = 2 To UBound(ar)
Select Case ar(i, 1)
Case 0
ar(i, 7) = Empty
ar(i, 11) = Empty
Case 1
ar(i, 8) = Empty
ar(i, 10) = Empty
End Select
If ar(i, 1) <> ar(i - 1, 1) Then
pos = i
Range("D" & pos).Resize(8).EntireRow.Delete
End If
Next
Gruß Ferri
Comment