Moin,
mir wird bei Ausführung der Laufzeitfehler angezeigt.
Was kann ich dagegen tun?
Sub Swapfinder2()
Dim i As Long
For i = 2 To 12917
If Cells(i + 1, 2) = Cells(i, 2) And Cells(i + 1, 4) = Cells(i, 4) And (Cells(i + 1, 11) - Cells(i, 11)) <= 0.006944 And Cells(i + 1, 3) <> Cells(i, 3) Then
Cells(i + 1, 12).Value = 7
Cells(i, 12).Value = 7
i = i + 1
Else: Cells(i + 1, 12).Value = 10
Cells(i, 12).Value = 10
End If
Next
End Sub
|