Macro loopt niet door

[caffie]

Ik heb een marco gemaakt " Rommel " maar die loopt vast.
Ik vermoed dat het geheugen volloopt of zoiets.
Want als ik met F* de macro rus stap voor stap loopt deze wel door.

Misschien moet een een DIM regel bij maar weet niet wat.
Wie kan me op weg helpen.

Sub rommel()

For x = 4 To 2300

    If Cells(x, 3).Value <> Cells(x - 1, 3).Value Then
        Cells(2, 1).Copy Cells(x, 1)
        Cells(x, 1).Interior.ColorIndex = 26
        Cells(x, 3).Copy Cells(x, 2)
        Cells(x, 2).NumberFormat = "ddd"
    Else
    
    End If
Next

x = x + 1

End Sub

Application.ScreenUpdating heeft niet gewerkt

Voorwaardelijke opmaak heb ik er juist uitgehaald omdat ik de kleur van de voorwaardelijk niet kon detecteren
Ik heb even een deel van de excel sheet toegevoegd.
Dan is weer een stuk duidelijkere
De toegevoegde sheet is nu goed omdat ik 15 minuten de F8 knop ingedrukt heb gehouden.
Want dan loopt de macro wel door.

Al vast iedereen bedankt voor alle hulp.

 

[edmoor]

Wat bedoel je met niet doorlopen?
Maak er eens dit van:

Sub rommel()
    Application.ScreenUpdating = False
    For x = 4 To 2300
        If Cells(x, 3).Value <> Cells(x - 1, 3).Value Then
            Cells(x, 1).Interior.ColorIndex = 26
            Cells(x, 2) = Cells(x, 3)
            Cells(x, 2).NumberFormat = "ddd"
        End If
    Next
    Application.ScreenUpdating = True
End Sub

 

[snb]

Sub M_snb()
   sn=range("A2:C2300")
  
   for j=4 to ubound(sn)
     if sn(j,3)<>sn(j-1,3) then
      sn(j,1)=sn(1,1)
      sn(j,2)=format(sn(j,3),"ddd")
    end if
  next

  range("A2:C2300")=sn
End sub

De kleur van kolom A zou ik met voorwaardelijke opmaak instellen

 

[caffie]

Het probleem zat niet in de code maar in de PC

toch allemaal weer bedankt

 

[route99]

Welk probleem in de PC? Lijkt me wel archiefwaardig om dat te weten....