VBA Stoppuhr nur mit Minuten

  • Excel

Es gibt 2 Antworten in diesem Thema. Der letzte Beitrag () ist von peterfido.

    VBA Stoppuhr nur mit Minuten

    Hallo Leute,

    ich würde gerne eine Stoppuhr in VBA für Exel 2010 haben, nur leider finde ich nichts brauchbares und so selbst habe ich leider keine Idee.

    Die Stoppuhr sollte nur in Minunten laufen, es müssten also in der Zelle auch nur die Minuten gezählt werden. Es wäre gut wenn Sekunden auch, diese aber bei Rechnungen mit Bezug zur Zelle nicht gewertet werden.

    Eine Start-Stop Prozedur würde ich auch brauchen.

    Wie gehe ich das denn am besten an? Ich will später die Minuten als Ganzzahlen verwenden a la 15 Minunten 34 Sekunden (15:34) = 15

    Grüße

    und danke im Vorraus

    Die eleganteste Methode ist sicher ein Timer.
    Allerdings kannst du bei der von dir gewünschten Genauigkeit problemlos mit der poor-man's-method arbeiten:

    So in etwa:

    Visual Basic-Quellcode

    1. Private MustStop As Boolean
    2. Sub StartTimer()
    3. StartTime = Now
    4. Do
    5. Application.Wait DateAdd("s", 1, Now)
    6. DoEvents
    7. Loop Until MustStop
    8. UsedTime = Format(Now - StartTime, "nn:ss")
    9. End Sub
    10. Sub StopTimer()
    11. MustStop = True
    12. End Sub

    Die beiden Subs legst du auf Buttons.
    Zwischendrin, kannst du dir noch die Minuten ausrechnen und anzeigen.

    Edit:
    Die Methode funktioniert natürlich nur brauchbar, wenn du Anwendung als Standalone-Anwendung betreibst.
    Falls du nebenher noch Berechnungen laufen lassen oder Excel-Eingaben tätigen willst, solltest du wirklich mit einem "echten" Timer arbeiten.
    --
    If Not Program.isWorking Then Code.Debug Else Code.DoNotTouch
    --

    Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „petaod“ ()

    Ansonsten etwas komfortabler ohne Excel anzuhalten:
    Ein Worksheet (Tabelle) mit folgenden Code:

    Spoiler anzeigen

    Visual Basic-Quellcode

    1. Private bUhrZelle As Boolean
    3. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    4. If bUhrZelle Then
    5. If Cells(1, 1) > 0 Then
    6. Application.OnTime Now + TimeValue("00:00:01"), "StoppUhr"
    7. If Not bUhrAn Then
    8. StartZeit = Now
    9. End If
    10. bUhrAn = True
    11. Else
    12. bUhrAn = False
    13. letzteStoppZeit = StoppZeit
    14. Cells(1, 3).NumberFormat = "HH:MM:SS"
    15. Cells(1, 3).Value = letzteStoppZeit
    16. Application.Calculate
    17. End If
    18. End If
    19. If Target.AddressLocal = "$A$1" Then
    20. bUhrZelle = True
    21. Else
    22. bUhrZelle = False
    23. End If
    24. End Sub


    und ein Modul mit folgendem Code:

    Spoiler anzeigen

    Visual Basic-Quellcode

    1. Public StartZeit As Date
    2. Public letzteStoppZeit As Date
    3. Public bUhrAn As Boolean
    4. Public StoppZeit As Date
    6. Public Sub StoppUhr()
    7. If bUhrAn Then
    8. Application.OnTime Now + TimeValue("00:00:01"), "StoppUhr"
    9. StoppZeit = Now - StartZeit
    10. Worksheets("Tabelle1").Cells(1, 2).NumberFormat = "@"
    11. Worksheets("Tabelle1").Cells(1, 2).Value = Format(StoppZeit, "h:mm")
    12. End If
    13. End Sub
    15. Public Function lStoppZeit(ByVal dummy As Date) As Date
    16. lStoppZeit = letzteStoppZeit
    17. End Function


    Um mit der letzten Zeit zu rechnen muss die Funktion lStoppZeit(Zelle mit Datumsformat) genutzt werden.

    z.B.

    Quellcode

    1. =lstoppzeit(C1)


    Die Uhr läuft, sobald ein Wert größer 0 in Zelle A1 ist und stoppt bei einem Wert <=0
    Gruß
    Peterfido

    Keine Unterstützung per PN!

Facebook
Telefonspende