Timer i Excell

Jeg har en makro som du kan starte med en tast, og inde i selve makroen kan du angive hvor mange timer, minutter og sekunder der skal gå imellem den aktiverer sig selv, f.eks. kan du sætte den til at afspille 1 gang pr. minut! Er det dét du søger? :) Og hvad er det præcis den skal gøre, når den afspilles?

Det er ikke helt ved siden af det der :-) Den skal dog ikke aktivere sig selv, men blot kunne vise (eller alarmere), når den angivne tid er gået. Faktisk kan du sige, at det bare er et "æggeur", jeg skal bruge. Dog skal tiden gerne være fleksibel inde fra arket, så macroen læser tiden, som den indsættes, og tæller ned fra den. Det skal bruges til effektiv instrument-øvning: så og så længe på dén teknik, så og så længe på den næste osv. Dvs. optimalt er det samme macro, som så bare indlæser den justerebare tid, alt efter hvilken øvelse man starter i netop dén række :-)

Aha jeg kan lige prøve at "ombygge" den så den virker til dit behov, smider den ind når den er er ;)

Det ville virkelig være fantastisk! :-)

Ja men jeg kan sku ikke helt knække den, har faktisk siddet med det hele aftenen. Jeg er os "kun" installatør, ikke programmør :) Men måske jeg finder ud af det senere eller i morgen... Skal nok gøre alt for at hjælpe dig

Aww... det var da alt for meget! Nu bliver jeg jo helt flov :-| Mange tusind tak - du må gerne vise, hvad du har indtil nu. Måske kan jeg hitte på noget :-)

Det er da mere flovt jeg ikke kan fikse det ;) Regnede ikke med det var et problem nemlig! Men det virker ikke og det er en lang forklaring... Held og lykke håber der kommer en prof og fikser det :)

Ok, det var surt. Tusind tak alligevel :-)

Prøv i et Modul:
Formater celle A1 med klokkeslæt
Indtast f.eks. 00:00:30 --> StartTimer
30 sek. nedtælling til popUp

Tak for den - den kører desværre ikke. Jeg får en fejl om, at reset ikke kan køres. Kan ikke lige se, hvad der er galt.

Jeg har fået en anden simpel version til at køre, men dog kun som tæller, kan ikke hitte ud af, hvordan jeg laver den til minutter og sekunder:

Sub Count1()
Pausetime = Cells(3, 4)
Start = Timer
Do While Timer < Start + Pausetime
DoEvents
Cells(3, 3) = Start + Pausetime - Timer
Loop

End Sub