Office: mit der uhrzeit rechnen.....

Hallo liebe forumsleute, ich habe da wohl ein kleines Problem,

und zwar,

• ich möchte gerne das wenn ich meine Tabelle zumache das die aktuelle Uhrzeit gespeichert wird ( in einer zelle z.b ZZ1)
  
• wenn ich nun diese Tabelle wider öffne soll er mir in einer anderen zelle die Vergange zeit seit dem schließen anzeigen...
  

Meine Vermutung ist halt das das nur mit nem Makro / VBA geht... oder etwa nicht...

 

Hallo,

eine Savedate-Funktion gibt es in Excel leider nicht.

Ein (nicht sehr eleganter) kleiner Umweg über ein Makro ginge so:

Öffne mit alt + F11 das VBA-Fenster und gib bei DieseArbeitsmappe folgende Code ein:

Code:

Option Explicit
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Sheets("Tabelle1").[zz1] = Format(Date, "dd.mm.yyyy") & " " & Format(Time, "hh:mm AMPM")
'In die Zelle ZZ1 wird das Datum der Speicherung geschrieben
End Sub

In Die Spalte ZZ2 gibst Du diese Formel ein:

Code:

=JETZT()

In ZZ3 kannst Du jetzt

Code:

=ZZ2-ZZ1

berechnen. Das musst Du dann nur noch so formatieren, dass es ansprechend aussieht, z.B. als TT hh:mm

Gruß

 

danke, werde es sofort versuchen....

Nachtrag:
habe deinen code noch etwas modifiziert.


So wird nun erst beim Öffnen die aktuelle Uhrzeit in die Zelle AA2 Geschrieben

Code:

Private Sub Workbook_Open()
'*** Aktuelle Uhrzeit in zelle AA2 schreiben
Worksheets("Tabelle1").Range("AA2").Value = Format(Date, "dd.mm.yyyy") & " " & Format(Time, "hh:mm AMPM")
End Sub

Dann wenn die tabelle geschlossen wird speichert er das datum&zeit in die Zelle AA1 ( dein Orginal), die einzigste änderung habe aus deinem BeforeSave ein BeforeClose gemacht.

Code:

' Wenn Tabelle geschlossen wird
Private Sub Workbook_BeforeClose(Cancel As Boolean)
'Schreibe in Zelle ZZ1 das Datum der Speicherung
Sheets("Tabelle1").[AA1] = Format(Date, "dd.mm.yyyy") & " " & Format(Time, "hh:mm AMPM")
'Schließe Tabelle, wenn sie Beendet wird; Speichere Sie ab ohne nachzufragen
If Me.Saved = False Then Me.Save
End Sub

Bin dann her gegangen und habe in Zelle C4
die Differenz ausgerechnet

Code:

=C2-C1

und in Zelle C5 habe ich dann die vergangen Sekunden berechnet
das *24 aus dem Grunde weil die zeit in dezimal angegeben wird

Code:

=((C4*60)*24)*60

Die fertige Tabelle sieht so aus

	A	B	C
1	Zeit wo geschlossen wurde		17.11.2006 02:41
2	Aktuelle zeit	-	17.11.2006 02:42
3	-	-
4	Differenz	Zeit in stunden	0:01:00
5	-	Zeit in sekunden	60,0

also vielen dank
evtl hilft das ja auch anderen leuten ....