Liebe/-r Experte/-in,
hallo wir brauchen einen Countdown der frei Programmierbar ist. Da ich leider nur ein wenig in VBA bescheid weiß, bekomme ich dass nicht so hin wie ich will. Der Countdown funktioniert nur einmal und dann hört er auf, irgendwie funktioniert meine Schleife nicht. Bis jetzt habe ich dass so gelöst:
Sub startClock()
Dim anz_ges
anz_ges = ActiveSheet.Cells(10, 7)
For ausserer_zaehler = 1 To anz_ges
anz_takt = ActiveSheet.Cells(ausserer_zaehler + 1, 7)
anz_min = ActiveSheet.Cells(ausserer_zaehler + 1, 8)
For innerer_zaehler = 1 To anz_takt
dStopCount = Now() + TimeSerial(0, 0, anz_min)
dNextRun = Now + TimeSerial(0, 0, 1)
ActiveSheet.Cells(5, 5) = ausserer_zaehler
Call tickClock
Next innerer_zaehler
Next ausserer_zaehler
End Sub
Sub stoppClock()
On Error Resume Next
Application.OnTime dNextRun, „tickClock“, schedule:=False
dNextRun = 0
End Sub
Sub tickClock()
If dNextRun = 0 Then Beep
dNextRun = Now + TimeSerial(0, 0, 1)
If Now()
