tjekke om det er samme cell i loop
hejhvordan kan jeg finde ud af om det er samme celle jeg kigger på i mit loop. for hvis det er skal den ikke gøre noget med gå videre til next
If (Cell = Celltjek) Then
GoTo endd
------------------
Dim RngToCover As Range, RngToTjeck As Range, Cell As Range, Celltjek As Range
Set RngToCover = ActiveSheet.Range("B3:E3")
Set RngToTjeck = ActiveSheet.Range("B3:E3")
restart:
For Each Cell In RngToCover
For Each Celltjek In RngToTjeck
If (Cell = Celltjek) Then
GoTo endd
End If
If Abs(Cell - Celltjek) <= 0.0152 Then
Cell.Value = Cell.Value + 0.001
GoTo restart
End If
endd:
Next Celltjek
Next Cell