Office: Zeitstempel einfügen

Hallo Miteinander,

ich habe eine Excel Liste, die von mehreren Personen genutzt wird.

Ich möchte nun einen Stempel einbauen wo man sieht wer und wann als letztes die Exel File gespeichert hat.

Der Stempel soll immer auf Tabelle 1 in bestimmte Felder eingefügt werden.

Mein Ansatz ist wie folgt:

Code in "Diese Arbeitsmappe" rein

Private Sub Zeitstempel ()

If ActiveWorkbook.Save Then
With Sheets("Tabelle 1")
.[F12] = VBA.Environ("Username")
Range("F10").Value = Date & " " & Time

End With
End Sub

Funktioniert aber nicht ganz. Könnt Ihr mir weiterhelfen?

Wichtig: Der Stempel soll nur gesetzt werden wenn man manuell speichert.

Vielen Dank und Gruß

:)

 

Moin!
Schaue Dir das Workbook_BeforeSave-Event in DieseArbeitsmappe an.
Heißt Deine "Tabelle 1" wirklich so?
Im Normalfall doch eher "Tabelle1" also ohne Blank.

Gruß Ralf

 

Hallo Hias
Da gibts noch die Frage "soll das jeder sehen können ?"
Wenn ja, mach ein neues Blatt (z.B. Speicher
dann schau mal unter
Workbook -> beforeSave
hier würde ich dann immer in die erste freie Zelle schreiben
ungefähr so
Code:

Das wird dann vor JEDER Speicheraktion ausgeführt
Gruß
DeBabba

 

Vielen Dank DeBabba,

diese Lösung gefällt mir noch besser *Smilie

Wenn jetzt der aktuelle Zeitstempel immer oben in A2 und B2 und die älteren nach unten geschoben würden, wäre ich überglücklich.

Viele Grüße

 

Und wenn ich mich in einen anderen Tabellenblatt befinde, sollte ich auch in den jeweiligen bleiben wenn ich auf Speichern drücke.

Und nicht zu dem Blatt Speichern wechseln

Gruß

 

So habe jetzt eine Lösung gefunden:

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)

With Sheets("Startseite").Activate
[F12] = VBA.Environ("Username")
Range("F10").Value = Date & " " & Time

Worksheets(LAST_WORKSHEET).Activate


End With

End Sub


Sobald ich speichere, wird auf der Startseite der Zeitstempel hinterlegt und man wechselt sofort wieder dahin wo man herkommt.

Aber:

wenn ich die File öffne und wieder schließe ohne zu speichern wird angezeigt:

Laufzeitfehler 9: Index außerhalb des gültigen Bereiches

Der Fehler liegt in dieser Zeile (wenn ich sie rausnehme wird die Fehlermeldung nicht angezeigt). Der Fehler wird nur angezeigt wenn ich die Startseite nicht verlasse, sprich wenn es kein LAST_Worksheet gibt.

Worksheets(LAST_WORKSHEET).Activate

Kann mir wer helfen?

Vielen Dank!

 

Hallo

du brauchst das Blatt nicht wechseln
wenn du schon With Sheets.... verwendest dann nutze es auch
dazu die Punkte vor Range beachten

Code:

MfG Tom

 

Hallo,

Ich habe anfangs die Aussage "Punkte vor Range" nicht verstanden.

Jetzt ist es mir nach mehrmaligen Durchlesen aber klar.

Code funktioniert und ist auch die idealste und kürzeste Lösung!

Vielen Dank!