Stoppuhr mit MP3-Ausgabe

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Michael,
vielen Dank. Das bringt mich ein ganzes Stück weiter. Wie kann ich die Codes z.B. für Tabelle 1 kombinieren?


Option Explicit                                     ' Variablendefinition erforderlich
Private Sub Cmd_Start_Click()
If Cmd_Start.Caption = "Start" Then
DaZeit = Time                               ' aktulle Zeit auf Variable
Columns(1) = ""                             ' Inhalt Spalte A löschen
Cmd_Start.Caption = "Stop"                  ' ändern der Beschriftung
ZeigenZeit                                  ' laufende Zeit in Zelle A1 starten
Else
' Endzeit eintragen
Range("A1") = Format(Time - DaZeit, "hh:mm:ss")
Cmd_Start.Caption = "Start"                 ' ändern der Beschriftung
StopAnzeige                                 ' Abschalten der Prozedur ZeigenZeit
End If
End Sub

mit

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Sound_abspielen
End Sub

Viele Grüße
Mike

Private Sub Worksheet_Change(ByVal Target As Range) If noch1sound.soundNr = 0 Then Sound_abspielen Else If noch1sound.soundNr = 2 Then If Mid(Target.Text, 3, 2) = "10" Then Sound_abspielen Else If noch1sound.soundNr = 4 Then If Mid(Target.Text, 3, 2) = "20" Then Sound_abspielen Else If noch1sound.soundNr = 6 Then If Mid(Target.Text, 3, 2) = "25" Then Sound_abspielen Else If noch1sound.soundNr = 8 Then If Mid(Target.Text, 3, 2) = "30" Then Sound_abspielen End If End If End If End If End If End Sub

mir ist nicht zu 100% wohl dabei, mit dem mid(bla,3,2) zu arbeiten:
1. sind Stringfunktionen relativ langsam, und
2. traue ich der Formatierung nicht.
Letzteres könnte man durch die folgende Formel ersetzen (drück in VBA mal Strg+g, dann kannst Du sie im "Direktfenster" gleich eingeben: debug.print left(right("1:23:45",5),2)
Wenn Du Enter drückst, wird das Ergebnis 23 ausgegeben - das erscheint mir sicherer, benötigt aber sicher noch mehr Zeit als mid.
Evtl. wäre ne Abfrage nach Zeit sinvvoller, also sinngemäß:

If Target.Value >= 0.000347222222222221 Then Sound_abspielen

Der Wert entspricht ca. 30 vergangenen Sekunden; *Obacht*, in VBA mit Dezimal*PUNKT*; alle Nachkommastellen mußt Du ja nicht mit eingeben, und das "größergleich" ist insofern kein Problem, da in den Zweig nur gesprungen wird, wenn die soundNr paßt, d.h., das Abspielen wird nur je einmal ausgeführt.
Na denn, viel Spaß beim Basteln,
Michael

Beliebteste Forumthreads (12 Monate)

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Stoppuhr mit MP3-Ausgabe

12 Beiträge zum Forumthread Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread