Wisselen tussen 2 tabbladen met start/pauze functie

[DOP2016]

Beste forumleden,

Ik maak gebruik van de volgende VBA code (voorbeeld) om 2 tabbladen automatisch te laten wisselen bij x seconden.
Het ontbreekt mij echter aan de kennis om de volgende wijziging aan te brengen:

- d.m.v. een button (1) op tabblad 1 het wisselen kan pauzeren en d.m.v. button (2) kan hervatten.

Het pauzeren op tabblad 1 wil ik toepassen i.v.m. een invoerblad op tabblad 1 en een uitvoerblad op tabblad 2.
Het betreft uitslagen/standen en wordt toegepast bij toernooien.
Ik heb echter niet altijd genoeg tijd om de uitslagen in tabblad 1 in te vullen, voordat deze wisselt naar de tussenstanden.
Wellicht is er een andere mogelijkheid die ik over het hoofd zie?

Alvast bedankt voor uw hulp!

Vriendelijke groet,
Dennis

Bekijk bijlage Test excelblad wisselen.xlsm

 

[Cobbe]

Waarom moet dat via een timer lopen?
Je kan toch die wissel forceren NA de nodige ingave.

 

[DOP2016]

Ik projecteer namelijk zowel de uitslagen als de tussenstanden op een grote beamer. Vandaar dat ik beide tabbladen wil laten wisselen om de 10/15 seconden.
De uitslagen worden om de kwartier bijgewerkt. in tussentijd is het enkel een presentatie.

Wat bedoel je met "wissel forceren"

Vriendelijke groet,

 

[gast0660]

Hoi,
Zoiets?

 

[DOP2016]

Hallo Philiep,

Perfect, voldoet aan mijn eisen. Thanks!

Dennis

 

[gast0660]

Hoi,

Perfect, voldoet aan mijn eisen.

Oef,gelukkig zijn uw eisen niet zo hoog:d:d:d

 

[DOP2016]

De functionaliteit vind ik het belangrijkst. Dat de knoppen er niet uit zien vind ik niet zo storend.

 

[VenA]

Heb je gelijk in. Met één niet uitziende knop kan het ook.:d

 

[gast0660]

Hoi,
Voor mensen met hogere eisen kan dit ook (zie bijlage)
@Vena, er zijn nu eenmaal knopjes waar ik graag op druk, hoe meer hoe liever:d:d:d

 

[VenA]

@gast0660, Zonder er veel woorden aan vuil te maken:thumb::d

Nb. hoor jij, gezien het tijdstip, niet in het rechter plaatje te liggen

 

[gast0660]

@Vena,
Klopt, Is zo ongeveer tijd om in mijn mandje te duiken

 

[HSV]

Nu nog een stopopdracht voor het sluiten inbouwen, anders start het bestand na het sluiten weer op.
Zoek hier maar eens op het forum naar.

application.ontime

 

[snb]

Minder hoge eisen/code:

Dim t1

Sub M_Begin()
    Sheets(2 + (ActiveSheet.Index = 2)).Activate
    t1 = DateAdd("s", 15, Now)
    Application.OnTime t1, "M_Begin"
End Sub

Sub M_Stop()
    Application.OnTime t1, "M_Begin", , False
End Sub