Timer in Excel

Forumthread: Timer in Excel

Timer in Excel

15.02.2022 07:03:11

Antonio

Hallo an alle,
ich würde gerne wissen ob man ein Timer in Excel einbau kann.
Hier meine Bsp. Mappe:
https://www.herber.de/bbs/user/151135.xlsx
Mein Vorhaben:
Der eingerahmte Bereich (K12:AC12) soll beim clicken auf ein Button - Start Button (Hier nicht in der Mappe) für 2 Sekunden weilen
dann in K13 springen, wieder 2 Sekunden weilen dann weiter bis in Spalte "K" keine Einträge mehr sind
dann soll der Balken in K13 wieder anfangen bis ein weiterse Button - Stop Button (Hier nicht in der Mappe) gedruck wird.
Ich hoffe das es geht.
Vielen Dank im Voraus
Antonio

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Timer in Excel

15.02.2022 09:26:57

Nepumuk
AW: Timer in Excel

15.02.2022 09:53:29

Antonio
AW: FUNZT

15.02.2022 11:34:28

Antonio

AW: Timer in Excel

15.02.2022 09:26:57

Nepumuk

Hallo Antonio,
in ein Standardmodul (Menüleiste im VBA-Editor - Einfügen - Modul):


Option Explicit
Option Private Module
Private ldtmNextStart As Date
Private lobjCell As Range
Public Sub StartTimer()
If ldtmNextStart = 0 Then
Set lobjCell = Tabelle1.Range("K12")
Else
If Not IsEmpty(lobjCell.Offset(1, 0).Value) Then
Set lobjCell = lobjCell.Offset(1, 0)
Else
Set lobjCell = Tabelle1.Range("K12")
End If
End If
Call Application.Goto(Reference:=lobjCell)
ldtmNextStart = Now + TimeSerial(0, 0, 2)
Call Application.OnTime(EarliestTime:=ldtmNextStart, _
Procedure:="StartTimer", Schedule:=True)
End Sub
Public Sub StopTimer()
If ldtmNextStart  0 Then
Call Application.OnTime(EarliestTime:=ldtmNextStart, _
Procedure:="StartTimer", Schedule:=False)
Set lobjCell = Nothing
ldtmNextStart = 0
End If
End Sub

In das Modul "DieseArbeitsmappe":


Option Explicit
Private Sub Workbook_BeforeClose(Cancel As Boolean)
If Not Saved Then
Select Case MsgBox("Sollen Ihre Änderungen in '" & Name & _
"' gespeichert werden", vbExclamation Or vbYesNoCancel)
Case vbYes
Save
Case vbNo
Saved = True
Case vbCancel
Cancel = True
End Select
End If
If Not Cancel Then Call StopTimer
End Sub

Gruß
Nepumuk

AW: Timer in Excel

15.02.2022 09:53:29

Antonio

Hi Nepumuk,
vielen Dank zunächst für deine Antwort.
Es Funzt sehr gut.


Else
Set lobjCell = Tabelle1.Range("K12")
End If

Hier habe "K12" in "K13" geändert damit nicht ganz von Vorne anfängt.


If ldtmNextStart = 0 Then
Set lobjCell = Tabelle1.Range("K12")
Else

Hier habe versucht "K12" in "K12:AC12" zu ändern, damit der Bereich der scrollen soll markiert wird,
die Markierung läuft aber weiter, was kann ich noch Ändern das nicht nur "K12" markiert wird sondern "K12:AC12"
LG
Antonio

AW: FUNZT

15.02.2022 11:34:28

Antonio

Nepumuk
Danke

Beliebteste Forumthreads (12 Monate)

Forumthread: Timer in Excel

3 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread