Macro fout

[batfink2002]

Geeft een foutmelding bij het stoppen wie kan me helpen vet gedrukt is de foutmelding



Sub StartKnipperen()
If Range("A1").Font.ColorIndex = 2 Then
Range("A1").Font.ColorIndex = xlColorIndexAutomatic
Else
Range("A1").Font.ColorIndex = 2
End If
Startmoment = Now + TimeSerial(0, 0, 1)
Application.OnTime Startmoment, "StartKnipperen", , True
End Sub

Sub StopKnipperen()
Range("A1").Font.ColorIndex = xlColorIndexAutomatic
Application.OnTime Startmoment, "StartKnipperen", , False
End Sub

 

[Wigi]

Bij StopKnipperen is de variabele Startmoment niet gekend / goed gevuld. Dit moet een variabele zijn die over de hele module gekend is.

 

[batfink2002]

Ik weet niet precies wat je bedoeld kan je aangeven wat ik fout doe

 

[Wigi]

[B]Dim Startmoment As Double[/B]

Sub StartKnipperen()
If Range("A1").Font.ColorIndex = 2 Then
Range("A1").Font.ColorIndex = xlColorIndexAutomatic
Else
Range("A1").Font.ColorIndex = 2
End If
Startmoment = Now + TimeSerial(0, 0, 1)
Application.OnTime Startmoment, "StartKnipperen", , True
End Sub

Sub StopKnipperen()
Range("A1").Font.ColorIndex = xlColorIndexAutomatic
Application.OnTime Startmoment, "StartKnipperen", , False
End Sub

 

[snb]

Dit lijkt me eenvoudiger:

Sub StartKnipperen()
  Range("A1").Font.ColorIndex = iif(Range("A1").Font.ColorIndex =2,0,2)
  Application.OnTime Now +timevalue("00:00:01"), "StartKnipperen", , True
End Sub

Sub StopKnipperen()
  Range("A1").Font.ColorIndex = 0
  Application.OnTime now, "StartKnipperen", , False
End Sub

PS. @Wigi met 'gekend' bedoel je waarschijnlijk 'bekend'.

 

[Wigi]

ColorIndex = 0

is niet per definitie hetzelfde als

ColorIndex = xlColorIndexAutomatic

PS

PS. @Wigi met 'gekend' bedoel je waarschijnlijk 'bekend'.

Dan zou ik zeggen: beter deze fout maken, dan woorden gebruiken die niet eens bestaan.