Formule Datum loopt traag Excel

[DANIEL162]

Zou het mogelijk zijn deze formule vlugger te laten werken.

For Each cl In Range("C9:C200" & ActiveSheet.UsedRange.Rows.Count)
        cl.Value = Format(cl, "dddd dd mmmm yyyy")
    Next cl

Cellen in kolom C9:C200 die leeg zijn moeten leeg blijven.

Groetjes, Daniel

 

[edmoor]

Zoals gewoonlijk kan dat meer oorzaken hebben dan alleen dat stukje code.
Plaats dus een relevant voorbeeld document.

 

[DANIEL162]

Spijtig ed kan deze zomaar niet vrijgeven. het zijn fabrieks- en personeelsgegeven die erop staan.

 

[edmoor]

Ik vraag ook om een relevant voorbeeld, niet om de bedrijfsgeheimen.

Als er op dat werkblad ook een Worksheet_Change event wordt getriggert, zet deze dan eerst uit:

Application.EnableEvents = False
For Each cl In Range("C9:C200" & ActiveSheet.UsedRange.Rows.Count)
    If cl.Value > o Then cl = Format(cl, "dddd dd mmmm yyyy")
Next cl
Application.EnableEvents = True

 

[DANIEL162]

Private Sub CommandButton2_Click()
Unload Me  (kalender afsluiten)
Application.EnableEvents = False
For Each cl In Range("C9:C200" & ActiveSheet.UsedRange.Rows.Count)
    If cl.Value > o Then cl = Format(cl, "dddd dd mmmm yyyy")
Next cl
Application.EnableEvents = True
End sub

Het blijft traag lopen!

 

[edmoor]

Zet dan ook ScreenUpdating uit:

Private Sub CommandButton2_Click()
Unload Me  (kalender afsluiten)
Application.ScreenUpdating = False
Application.EnableEvents = False
For Each cl In Range("C9:C200" & ActiveSheet.UsedRange.Rows.Count)
    If cl.Value > o Then cl = Format(cl, "dddd dd mmmm yyyy")
Next cl
Application.ScreenUpdating = True
Application.EnableEvents = True
End sub

 

[DANIEL162]

Dat is het. De actie meteen uitgevoerd. Weer een sigaretje uitgespaard.
Bedankt ed
Groetjes, Daniel

 

[DANIEL162]

Deze toevallig gevonden van Warme bakkertje
Werkt ook super! Zelfs zonder Application.ScreenUpdating.

Range("c9").Select

    lRow = Range("C" & Rows.Count).End(xlUp).Row
fRow = lRow
For i = lRow To 1 Step -1
    If InStr(Cells(i, 1), ".") > 0 Then fRow = fRow - 1
Next
For Each cl In Range("C" & fRow + 1 & ":" & "C" & lRow)
   
   cl.Value = Format(cl, "dddd dd mmmm yyyy")
Next