kann ich (wenn ja wie) einen Zellinhalt nach 60 Sekunden auf den Wert null setzen?
Ich bedanke mich für jede Hilfe
Beat
Sub setzt 1 Minute nachdem sie aufgerufen wurde die Inhalt der Zelle A1 in Tabelle1 gleich 0:
Sub Null_Setzen()
Dim zeit As Date
zeit = Now
Do
If Now = zeit + "00:01:00" Then Exit Do
Loop
Worksheets("tabelle1").Cells(1, 1).Value = 0
End Sub
Hilft Dir das weiter?
Schönen Gruß,
Andi
Sub eine_Minute()
application.ontime now + timeserial(0,1,0),"DeinMakro"
End Sub
Sub DeinMakro()
[a1]= 0
End Sub