Tijd weergeven

[Hoornvan]

Hallo helpers,

Is het mogelijk met vba de tijd onder in de taakbalk te krijgen, net boven START?
Ik wil als dit kan de tijd weer laten geven, hoe lang het duurt om het password te verwijderen.
Als dit mogelijk is, welke code is daar dan voor nodig?

Als vast hartelijk bedankt voor de hulp

Mvg, Wim

 

[Hoornvan]

Het mag ook met een Msg box als dit makkelijker is.

Mvg, Wim

 

[Wigi]

En wat moet er dan juist weergegeven worden?

 

[Hoornvan]

Hallo Wigi,

Als de macro om het password van het werkblad te verwijderen gaat lopen.
De tijd b.v.b. in een mesagebox weer geeft hoe lang het geduurt heeft om het te verwijderen.
Of is zoiets niet mogelijk?

Mvg, Wim

 

[Wigi]

Welke code heb je nu?

 

[Haaren101]

Zoiets?

Dim PauseTime, Start, Finish, TotalTime
If (MsgBox("Press Yes to pause for 5 seconds", 4)) = vbYes Then
PauseTime = 5 ' Set duration.
Start = Timer ' Set start time.
Do While Timer < Start + PauseTime
DoEvents ' Yield to other processes.
Loop
Finish = Timer ' Set end time.
TotalTime = Finish - Start ' Calculate total time.
MsgBox "Paused for " & TotalTime & " seconds"
Else
End
End If

Uit de VBA voor Excel help. Met wat aanpassingen lijkt het wel geschikt voor je doel.

Ron

 

[Hoornvan]

Hallo Haaren101 en Wigi,

Wigi,

Ik heb helemaal geen code hier voor.
Alleen de code om het password te verwijderen - van Internet gehaald.
Nu wil ik eigenlijk de tijd zien hoe lang dit geduurt heeft. (het verwijderen van password)

Haaren101,

Ik ga een beetje stoeien met de code en hoop dat het me lukt. ( heb er geen verstand van)
Vaak met wat wijzigen kun je zien wat er gebuurt.

Bedankt voor de hulp als het me lukt zet ik de vraag als opgelost.

Mvg, Wim

 

[Hoornvan]

Hallo Haaren101,

Het is me gelukt met het aanpassen, hij geeft tot 5 cijfers achter de komma.
Zoveel is ook weer niet nodig, kijken of we dit ook kunnen oplossen.

Sub Tijd()
    Dim Time, Start, Finish, TotalTime
    Dim allinternal As Integer
    Start = Timer ' Set start time.
    DoEvents
    Passwords   ' Yield to other processes.
    Do While Timer < Start + Time
    Loop
    Finish = Timer ' Set end time.
    TotalTime = Finish - Start ' Calculate total time.
    MsgBox "TotalTime:" & TotalTime
End
End Sub

Mvg, Wim

 

[Wigi]

Dit is al genoeg:

Sub Tijd()

    Dim s as Variant
    
    s = Timer
    Passwords
    MsgBox "TotalTime: " & Round(Timer - s, 2) & " sec."
    
End Sub

Wigi

 

[Hoornvan]

Hallo Wigi,

Bedankt voor de code, ik ga het gelijk proberen.

Fijn weekend.
Mvg, Wim

 

[Hoornvan]

Hallo Wigi,

De korte code werkt.
Heb je ook een idee hoe het volgende komt?

Als ik in de macro met F8 werk en hem na een paar keer F8 te hebben gedrukt geef hij de tijd weer.
Laat ik de macro ineens lopen dan komt de tijd niet voor de dag.
Soms duurt het 30 sec. voordat de macro klaar is, kan het hier aan liggen?

Het is nu 30 min. later en ik heb het gevonden - Was een verkeerde link.
Nu is de vraag echt opgelost

Mvg, Wim