Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 00:49:19
Excel Sheet in einen Excel Kalender einfügen
20.04.2024 00:08:11
In Ordner nur das Speichern von Dateien erlauben
19.04.2024 21:26:15
mehrfache Texte finden
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1868to1872
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1868to1872
1868to1872
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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
Anzeige
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
Anzeige
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
Anzeige
AW: FUNZT
15.02.2022 11:34:28
Antonio
Nepumuk
Danke

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige