Live-Forum - Die aktuellen Beiträge
Datum
Titel
14.10.2025 15:55:14
wenn zwei Werte aus Liste übereinstimmen, dann wahr
14.10.2025 14:57:29
Wenn Datum in Ferienzeit dann Name angeben
14.10.2025 09:39:44
VBA - Excel speichern und schließen (Laufzeitfehler 91)
13.10.2025 19:31:31
VBA Formel mit Bezug auf Überschrift anstatt Spalte
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1104to1108
1104to1108
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

inputbox; Wert einmalig übertragen

Forumthread: inputbox; Wert einmalig übertragen

inputbox; Wert einmalig übertragen
Michael
Hallo!
Wie kann ich über die Inputbox die Zeit beim ersten mal einstellen? Muss es dann eine Prozedure sein oder wie funktioniert dieses?
Vielen Dank im voraus
Gruß Michael
Sub StartTimer()
Dim refershPeriod_michael As String
'                refershPeriod_michael = InputBox("Eingabe des MinutenAktualisierung", "00:01: _
00", "00:01:00")
'falsch weil es immer wieder aufgerufen wird
'refershPeriod_michael = Worksheets("Auswertung").Cells(1, 9)
refershPeriod_michael = "00:30:00"
ActiveWorkbook.RefreshAll
MerkTime = Now + TimeValue(refershPeriod_michael)
Application.OnTime MerkTime, "StartTimer"
End Sub

Anzeige

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

Betreff
Benutzer
Anzeige
AW: inputbox; Wert einmalig übertragen
22.09.2009 15:09:36
ede
Hallo Michael,
ungetestet versuch es mal nach diesem Shema:
Dim refershPeriod_michael As String
Sub init_timer()
refershPeriod_michael = InputBox("Eingabe des MinutenAktualisierung", "00:01:00", "00:01:00")
Call StartTimer
End Sub


Sub StartTimer()
ActiveWorkbook.RefreshAll
MerkTime = Now + TimeValue(refershPeriod_michael)
Application.OnTime MerkTime, "StartTimer"
End Sub

gruss
Anzeige
AW: inputbox; Wert einmalig übertragen
22.09.2009 19:00:57
Michael
Danke! Meister EDE! ;-)
AW: inputbox; Wert einmalig übertragen
22.09.2009 15:17:50
fcs
Hallo Michael,
als Ergänzung zu diesem: https://www.herber.de/forum/messages/1104497.html
Gruß
Franz 
'kommt in ein Modul
Public MerkTime As Date, refershPeriod As Date
Sub StartTimer()
Dim refershPeriod_michael As String
If refershPeriod = 0 Then
refershPeriod_michael = InputBox("Eingabe des MinutenAktualisierung", "00:01:00", _
"00:01:00")
If refershPeriod_michael = "" Then Exit Sub
If IsDate(refershPeriod_michael) Then
refershPeriod = TimeValue(refershPeriod_michael)
Else
MsgBox "Eingabe war kein gültiger Zeitwert"
Exit Sub
End If
End If
ActiveWorkbook.RefreshAll
MerkTime = Now + refershPeriod
Application.OnTime MerkTime, "StartTimer"
End Sub
Sub StopTimer()
On Error Resume Next
Application.OnTime MerkTime, "StartTimer", , False
refershPeriod = 0
End Sub

Anzeige
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige