Wekkerfunctie in Excel voor een lijst met tijden

[Velpon]

Hallo,

Kan iemand mij helpen om mijn computer een "beep"of zo te laten geven elke keer dat een tijdstip uit de lijst B7:B26 bereikt is.
Op die tijdstippen moet een handmatige actie gedaan worden. Zie voorbeeldbestand.

 

[edmoor]

Dus voor regel 7 heb je maar 2 seconden de tijd voor de handmatige actie?

 

[Velpon]

Dat klopt ja. Het gaat slechts om het in de groep leggen van een kaartje. Maar het moet wel goed op tijd.

 

[edmoor]

Ok. Zoiets dan:
Bekijk bijlage OrderStart.xlsm

 

[Velpon]

Dit werkt prima. Dank je.
Nu zou een 'recalculate' op Blad1 het compleet maken. Dan wordt het in te zetten nummer geupdate.
Kan dat?

 

[edmoor]

Die Debug.Print Time kan eruit.
Vervang dat eens door: Range("C3").Calculate

 

[Velpon]

Helemaal geweldig: Dank je wel!
Probleem opgelost

 

[Velpon]

Methode On Time van object _Application is mislukt

Helaas,

Ik heb serieus geprobeerd de VBA-code in mijn uitgebreide Excel te implementeren.
Helaas: ik denk dat de verwijzing naar het juiste werkblad verkeerd gaat of zoiets.
Help!

Ik heb een uitgebreidere Excel bijgevoegd

 

[edmoor]

Er staat een End Sub teveel in Module 1, onderaan.
Verder niet gecontroleerd omdat je er niet bij verteld wat er niet goed gaat.

 

[Velpon]

Zodra ik op de knop "START SECOND ROUND" komt de foutmelding: Methode On Time van object _Application is mislukt.
Overigens werkt het daarna wél nu die "End sub" teveel weg is.???

 

[edmoor]

Maak er ook dit van:

Sub Start_Second_Round()

[COLOR="#008000"]' Start_timing Macro
' This macro places the current time as the start time and continues with the relative start times from lap 1.[/COLOR]

Sheets("Round_2").Unprotect
Sheets("Round_2").Cells(6, 3) = Time

    astTimer
    For Each cl In Sheets("Round_2").Range("C6:C95")
        [COLOR="#FF0000"]If cl.Value > 0 Then Application.OnTime cl.Value, "astNotify"[/COLOR]
    Next cl

Sheets("Round_2").Protect

End Sub

 

[Velpon]

Dank je voor je snelle reactie.

Dit leidt tot dezelfde foutmelding en dezelfde volgende gemarkeerde regel:

In de "Sub astTimer()"
Application.OnTime cl.Value, "astNotify"

 

[edmoor]

Je hebt ook die For Each er een keer teveel in opgenomen.
Probeer deze maar eens:
Bekijk bijlage Game 08.xlsm

 

[Velpon]

Ja natuurlijk. Nu zie ik het ook. Perfect.
Nogmaals hartelijk dank voor je snelle reactie.