Zeitmakro beenden

Computer: Software & Programmierung Office Software
#1

Hallo ihr Experten!

Ich möchte das folgende Zeitmakro mit einem anderen Makro beenden, leider weiß ich nicht wie.
Sub Zeitmakro()
ThisWorkbook.Worksheets(„Werte aktuell“).Range(„G1“) = Format(Time, „hh:mm:ss“)
DaEt = Now + TimeValue(„00:01:00“)
Application.OnTime DaEt, „Zeitmakro“
End Sub

mfg Wolfgang

#2

Ich möchte das folgende Zeitmakro mit einem anderen Makro
beenden, leider weiß ich nicht wie.
Sub Zeitmakro()
ThisWorkbook.Worksheets(„Werte aktuell“).Range(„G1“) =
Format(Time, „hh:mm:ss“)
DaEt = Now + TimeValue(„00:01:00“)
Application.OnTime DaEt, „Zeitmakro“
End Sub

Hi Wolfgang,
ungetestet:

dim stoppen as boolean
Sub Zeitmakro()
ThisWorkbook.Worksheets("Werte aktuell").Range("G1") = Format(Time, "hh:mm:ss")
DaEt = Now + TimeValue("00:01:00")
If stoppen=true then Application.OnTime DaEt, "Zeitmakro"
End Sub

sub aufhören()
stoppen=true
end sub
#3

Hi Reinhard,

dieses Zeitmakro ist eigentlich dafür gedacht in einer Exceltabelle die aktuelle Zeit anzuzeigen, bei mir hier jede Minute.
Mit der Aktualisierung der Zeit werden auch die Daten in der Tabelle aktualisiert(was der eigentliche Zweck ist, die Uhrzeit ist secundär).
Ich möchte nun mit einem Makro dieses Zeitmakro beenden können, d.h.
über zwei Schaltfächen mit den jeweiligen Makros verknüpft, Zeitmakro an und aus.
Was Du mir geschrieben hast funktioniert so nicht, leider.

Gruß Wolfgang

[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]

#4

Ich möchte nun mit einem Makro dieses Zeitmakro beenden
können, d.h.
über zwei Schaltfächen mit den jeweiligen Makros verknüpft,
Zeitmakro an und aus.
Was Du mir geschrieben hast funktioniert so nicht, leider.

Hi Wolfgang,

Dim stoppen As Boolean
Sub Zeitmakro()
stoppen = False
Application.OnTime Now + TimeValue(„00:00:03“), „Starten“
End Sub

Sub Starten()
ThisWorkbook.Worksheets(1).Range(„G1“) = Format(Time, „hh:mm:ss“)
If Not stoppen Then Call Zeitmakro
End Sub

Sub Aufhören()
stoppen = True
End Sub

Gruß
Reinhard

#5

Dim stoppen As Boolean
Sub Zeitmakro()
stoppen = False
Application.OnTime Now + TimeValue(„00:00:03“), „Starten“
End Sub

Sub Starten()
ThisWorkbook.Worksheets(1).Range(„G1“) = Format(Time,
„hh:mm:ss“)
If Not stoppen Then Call Zeitmakro
End Sub

Sub Aufhören()
stoppen = True
End Sub

Hi Reinhard,

Vielen Dank,das Starten klappt wunderbar, nur das Makro Aufhören funktioniert nicht so wie es soll(das Zeitmakro läuft weiter). Du hast sicher noch eine Idee damit das auch noch klappt.

Gruß
Wolfgang

#6

Vielen Dank,das Starten klappt wunderbar, nur das Makro
Aufhören funktioniert nicht so wie es soll(das Zeitmakro läuft
weiter). Du hast sicher noch eine Idee damit das auch noch
klappt.

Hi Wolfgang,
so klappts auch mit dem Stoppen,einziger „Fehler“ ist noch, wenn „stoppen“ auf true gesetzt wird, so wird danach noch einmalig die Zeit eingetragen da Ontime ja vor dem Stoppen =true gestartet wurde.
Ist das ok?
Gruß
Reinhard

#7

Hi Reinhard,

man muß eben nur ein bischen Geduld haben und warten.
Es ist so ok, nochmal besten Dank.

Gruß
Wolfgang