Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1104to1108
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

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

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
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

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige