richard024

dank je wel voor je hulp. werkt perfect nu👍👍

Dit is het bestand. zodra een timer op rood springt moet hij dus ook gaan knipperen hoop dat dit voldoende is Digitale shiftoverdracht versie 2.02.xlsm

tekstvak word bij 10 seconden rood. maar wil het dan ook laten knipperen

Hallo allemaal. Ik heb een timer ingebouw in excel. De laatste 10 minuten dan word het blok rood. Maar ik wil het blok dan ook laten knipperen. Hoe kan ik dan toegevoegen Onderstaande de vba code die ik gebruikt hebt : Sub start_timer() Application.OnTime Now + TimeValue("00:00:01"), "next_tick" End Sub Sub next_tick() If Blad1.Range("T4") = 0 Then Exit Sub Blad1.Range("T4").Value = Blad1.Range("T4").Value - TimeValue("00:00:01") If Blad1.Range("T4").Value <= TimeValue("00:00:10") Then Blad1.Shapes("Tekstvak 5").Fill.ForeColor.RGB = RGB(255, 0, 0) Else Blad1.Shapes("Tekstvak 5").Fill.ForeColor.RGB = RGB(255, 255, 255) End If start_timer End Sub Sub stop_timer() On Error Resume Next Application.OnTime Now + TimeValue("00:00:01"), "next_tick", , False End Sub