Stop - Taste
19.08.2003 12:28:10
Steffen
Ich habe folgendes Makto geschrieben s.u.(Zählt je nachdem was man in B4 eingibt nach x Sekunden den Wert in A4 hoch!)
Ein Startbutton bekomme ich noch hin -> einfach das Makro dem Button zuweisen !
Wie kann sieht jetzt jedoch ein Stop-Makro für meine Anwendung aus ???
Sub StartClock()
iInt = Range("B4").Value
gdNextTime = Now() + TimeSerial(0, 0, iInt)
Application.OnTime gdNextTime, "NextVal", , True
End Sub
Sub NextVal()
Range("A4").Value = Range("A4").Value + 1
Call StartClock
End Sub
Gruß Steffen
Anzeige