Upps, beim kopieren eine Zeile vergessen:
Sub Spezial_ersetzen()
Dim begZ As Integer, endZ As Integer, sp As Integer, n As Integer
Dim A, B, C, D
' Spalte, Beginnzeile und Endzeile festlegen
sp = 1: begZ = 2: endZ = 40
For n = begZ To endZ - 3
A = Cells(n, sp).Value
B = Cells(n, sp).Offset(1, 0).Value
C = Cells(n, sp).Offset(2, 0).Value
D = Cells(n, sp).Offset(3, 0).Value
If A + 1 = B And A + 1 = C And A = D Then
Cells(n, sp).Offset(1, 0).Value = A
Cells(n, sp).Offset(2, 0).Value = A
n = n + 2
End If
Next n
End Sub
|