Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1760to1764
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
Inhaltsverzeichnis

TimeValue als Variable definieren

TimeValue als Variable definieren
25.05.2020 16:46:18
Timo

Private Sub TestTimer()
Application.OnTime Now + TimeValue("00:02:00"), "sbEnde"
Dim Endzeit
Endzeit = Now + TimeValue("00:02:00")
Application.OnTime Endzeit, "sbEnde"
Application.StatusBar = "Fertigstellung um " & Format(Endzeit, "hh:mm")
End Sub
Hey Leute,
ich bin am Versuch gescheitert, das TimeValue auf einen beliebigen Wert (=beliebige Dauer) neu zu setzen.
Ich will also das TimeValue als Variable definieren, um verschiedene Zeiten ablaufen lassen zu können, ohne den Code anpassen zu müssen (x soll dann durch Value irgendeiner Zelle definiert werden).
Wer kann´s richten?

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

Betreff
Datum
Anwender
Anzeige
AW: TimeValue als Variable definieren
25.05.2020 16:56:11
UweD
Hallo
so?
Private Sub TestTimer()
Dim TV As String
Dim Endzeit As Date
TV = "00:02:00"
Endzeit = Now + TimeValue(TV)
Application.OnTime Endzeit, "sbEnde"
Application.StatusBar = "Fertigstellung um " & Format(Endzeit, "hh:mm")
End Sub
Sub sbEnde()
MsgBox "Fertig " & Now
Application.StatusBar = ""
End Sub
LG UweD
AW: TimeValue als Variable definieren
25.05.2020 17:44:36
Timo
Top Top Top
Danke euch beiden!
AW: TimeValue als Variable definieren
25.05.2020 16:59:03
Nepumuk
Hallo Timo,
ein Beispiel:
Private Sub TestTimer()
    
    Dim Endzeit As Date
    
    Endzeit = Tabelle1.Cells(1, 1).Value
    
    Application.OnTime Now + Endzeit, "sbEnde"
    
End Sub

In der Tabelle:
 A
100:00:05

ZelleFormatWert
A1hh:mm:ss5,78703703703704E-05

Gruß
Nepumuk
Anzeige

290 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige