kann mir jemand sagen, wie ich die Betriebsstunden per VBA mit Excel 2000 für meinen Computer realisieren kann. Das heißt vom ersten Einschalten bis zum .......
Gruß Stefan
kann mir jemand sagen, wie ich die Betriebsstunden per VBA mit Excel 2000 für meinen Computer realisieren kann. Das heißt vom ersten Einschalten bis zum .......
Gruß Stefan
Wenn du den Computer einschaltest ist zuerst das BIOS, dann ein bischen DOS vielleicht, dann Windows oder NT und zum Schluss die Application EXCEL.
EXCEL muss gestartet sein, damit es VBA ausführen kann.
Woher soll EXCEL nun die Zeit auslesen ?
Das einzige was protokollfähig ist/wäre, die Zeit die du mit EXCEL verbringst.
Gruss Rainer
Du müsstest in einer Tabelle folgendes tun:
- beim Start der Mappe (Rechner ist hochgefahren) in Spalte A die Uhrzeit eintragen;
- beim Schließen der Mappe (Rechner fährt herunter) in Spalte B die Uhrzeit eintragen.
- in Spalte C eine Formel für die Zeitdifferenz eintragen
- die Spalte C addieren
MfG Mario
die Frage lautete "... vom ersten Einschalten bis zum ..."
Wie willst du die Zeit vom Bootvorgang und bis zum Applikations- bzw. Makrostart erfassen ?
Gruss Rainer
das Eintragen der Uhrzeit geht natürlich per Formel/VBA. Sorry für die evtl. schrecklich nach Arbeit aussehende Formulierung.
MfG Mario
wenn wir schon beim Haarespalten sind: Evtl. per empirisch ermitteltem Zeit-Zuschlag? Vielleicht muss diese Erfassung keinem gesetzlichen Betriebsmittelnachweis genügen.
MfG Mario
die Zeit in der Excel als Anwendung geladen war kannst Du auf dem von Mario beschriebenen Weg ermitteln.
Bei den Betriebszeiten des Rechners wirst Du damit keinen Erfolg haben. Das geht mit Excel nur dann, wenn Excel mit dem System gestartet und NUR mit dem System beendet wird - und selbst dann sind die "haarspalterischen" Zeiten irgendwie per Schätzung zu addieren.
Gruß
Peter
Option Explicit
Code eingefügt mit Syntaxhighlighter 1.14
Private Declare Function timeGetTime Lib "winmm.dll" () As Long
Public Sub Laufzeit_von_Windows()
Dim Millisekunden As Long, Stunden As Long, Minuten As Long, Sekunden As Long
Millisekunden = timeGetTime
Stunden = Millisekunden \ 3600000
Millisekunden = Millisekunden - Stunden * 3600000
Minuten = Millisekunden \ 60000
Millisekunden = Millisekunden - Minuten * 60000
Sekunden = Millisekunden \ 1000
Millisekunden = Millisekunden - Sekunden * 1000
MsgBox "Windows läuf seit " & CStr(Stunden) & " Stunden " _
& CStr(Minuten) & " Minuten " & CStr(Sekunden) & " Sekunden " _
& CStr(Millisekunden) & " Millisekunden.", 0, "Laufzeitanzeige"
End Sub
Gruß
Nepumuk
Stefan
Stefan
Stefan
Stefan
Stefan
Stefan
Stefan