Makro Stoppuhr

[Redgeier]

Hallo!

Ich habe ein kleines Rechenprogramm  (1x1) für meinen Jungen (Grundschule) erstellt.

Nun möchte ich gerne, dass die Zeit fürs Bearbeiten (Rechnen) genommen wird. Er soll einen Button zum Starten klicken und wenn er alle Aufgaben gerechnet hat, wieder den Button anklicken und dann soll die Zeit (welche er zum Rechnen der Aufgaben gebraucht hat) in einer Message  (Messagebox) angezeigt werden.

Geht das??

Wenn ja..wie? Mit einem Makro-Code?

Vielen Dank

[Guschti]

Hallo

Zu Beginn beim Start für neue Aufgaben, schreibe in eine beliebige Zelle die Zeit
Hier mal ein Beispiel:


Sub Schaltfläche1
[Z1]= time
...... 
end sub


Sub Schaltfläche2
Msgbox Format(Time,"nn:ss")
end sub


Gruss Guschti

[Redgeier]

Hallo..

Die Zeit möchte ich nicht manuell messen und dann eintragen, sondern die Zeitmessung soll beim Button-Klick gestartet werden. Wie eine Stoppuhr. Und nach dem Beenden der Aufgaben, soll die Zeit wiedergegeben bzw. angezeigt werden. 

Oder sollte das o.g. Makro das machen??

MfG

[Guschti]

Hallo

Sorry, mein Fehler.

Sub Schaltfläche2
Msgbox Format(Time-[Z1],"nn:ss")
end sub


Gruss Guschti

[Redgeier]

Danke erst einmal für die schnelle Antwort.

Geht das Ganze auch in einem Makro mit einem Button (Start- u. Stopp)???

Und könnte man die ermittelte Zeit auch in einer Zelle (z.B. A5) ausgeben?? Anstatt einer Messagebox oder zusätzlich zur Messagebox?

Danke

[schauan]

Hallöchen,

wie ein Zelleintrag funktioniert kam ja schon oben in der Antwort:

Sub Schaltfläche1()
[Z1] = Time
......
End Sub

Statt Z1 wolltest Du A1 ... Die Punkte kommen natürlich weg.
Damit hast Du erst mal die Startzeit.


Hier kam dann die Laufzeit:

Sub Schaltfläche2
Msgbox Format(Time-[Z1],"nn:ss")
end sub

Da nimmst Du statt Z1 wieder A1 und erweiterst es anschliessend um die Ausgabe in A1

Sub Schaltfläche2
Msgbox Format(Time-[A1],"nn:ss")
[A1]=Time-[A1]
end sub