|
Hallo,
bei folgendem Code kommt oben genannter Fehler. Leider hab ich keine Ahnung was ich machen muss um das Ding zum Laufen zu bringen.
Hoffe ihr könnt mir helfen.
Dim ar As Variant
Dim i, pos As Long
ar = Range("D2:N" & 65200)
For i = 1 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 + 1
Range("D" & pos).Resize(8).EntireRow.Delete
End If
Next |