macro kan niet worden uitgevoerd

[Bramvdongen]

Hi allen,

Ik heb zojuist de volgende macro in VBA excel 2007 gemaakt. De macro geeft een foutmelding voor de gebruiker wanneer deze meer dan twee keuzes heeft gemaakt. Tijdsinterval voor starten macro 5 sec.


Sub Foutmelding()
If Range("V15").Value > 1 Then
MsgBox "Fout Fout Fout"

End If
If Range("V16").Value > 2 Then
MsgBox "verkeerde waarde ingevoerd"

End If
alertTime = Now + TimeValue("00:00:10")
Application.OnTime alertTime, "EventMacro"

Application.OnTime Now() + TimeValue("00:00:05"), "Foutmelding"

End Sub



Bij het starten van de Macro krijg echter de volgende foutmelding in Excel.
De macro is wellicht niet beschikbaar in dit werkboek of alle macro's zijn uitgeschakeld.

Ik heb vanalles geprobeerd (alle macro's toestaan ed) maar ik kom maar niet van deze melding af. Overigens loopt de macro zonder de tijdsinterval (alert Time) wel ok.

Ik heb het idee dat er iets fout gaat met de tijdsfunctie in Excel. Wie heeft er een antwoord voor mij.

Alvast bedankt voor de genomen moeite.

 

[edmoor]

Hij kan de macro "EventMacro" niet vinden, tenminste niet in je voorbeeld.
En waar is je declaratie van alertTime?

 

[Bramvdongen]

Bedankt voor je reactie. Eea heb ik nu kunnen oplossen. gr Bram

 

[snb]

Advies:

Voorkom dat een gebruiker 'fouten' kan maken.
Val gebruikers niet lastig met mededelingen dat zij iets 'fout' hebben gedaan.(en zeker niet om de 5 seconden).