Schleife zu Beginn auf 0 setzen
21.03.2009 14:02:56
MBorn
wieder einmal möchte ich Euch um Hilfe bitten. Bei folgender Bastelei:
Es gibt zwei Prozeduren, die gegenseitig aufgerufen werde. Die erste ist eine Timerprodzedur:
Sub StartTimer()
mytimer = Now + TimeSerial(0, 0, 5)
Application.OnTime mytimer, "myProcedure"
End Sub
Sub myProcedure()
Cells(1, 1) = Cells(1, 1) + 1
Call StartTimer
End Sub
Wie kann ich cells(1,1) zu Beginn auf cells(1,1)=0 setzen?
Gruß und Dank,
Born