• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

Wekkerfunctie in Excel voor een lijst met tijden

Status
Niet open voor verdere reacties.

Velpon

Gebruiker
Lid geworden
20 aug 2020
Berichten
89
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.
 

Bijlagen

Dus voor regel 7 heb je maar 2 seconden de tijd voor de handmatige actie?
 
Dat klopt ja. Het gaat slechts om het in de groep leggen van een kaartje. Maar het moet wel goed op tijd.
 
Dit werkt prima. Dank je.
Nu zou een 'recalculate' op Blad1 het compleet maken. Dan wordt het in te zetten nummer geupdate.
Kan dat?
 
Die Debug.Print Time kan eruit.
Vervang dat eens door: Range("C3").Calculate
 
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
 

Bijlagen

Er staat een End Sub teveel in Module 1, onderaan.
Verder niet gecontroleerd omdat je er niet bij verteld wat er niet goed gaat.
 
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.???
 
Maak er ook dit van:
Code:
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
 
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"
 
Ja natuurlijk. Nu zie ik het ook. Perfect.
Nogmaals hartelijk dank voor je snelle reactie.
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan