Anzeige
Archiv - Navigation
1036to1040
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Markro "Speicherdatum" u. "Anwender"

Markro "Speicherdatum" u. "Anwender"
31.12.2008 09:12:53
Ingo
Hallo!!!
Bei u. a. Code wird nur das Speicherdatum bei der ersten Speicherung sofort gespeichert.
Der letzte Anwender wird erst beim folgenden speichern gespeichert.
Ich möchte aber, dass bei jedem speichern beide Angaben sofort gespeichert werden !!!
Wo liegt der Fehler ?
Wer kann mir helfen !?!
ingo
'Makro zum eintragen des Letzten Speicherdatums und des Anwenders

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
'Letztes Speicherdatum
Sheets("Gesamt DP").Range("H1") = Now
'Letzter Anwender
Sheets("Gesamt DP").Range("K1") = ActiveWorkbook.BuiltinDocumentProperties.Item(7)
End Sub


5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Markro "Speicherdatum" u. "Anwender"
31.12.2008 09:19:01
Nepumuk
Hallo Ingo,
so: Sheets("Gesamt DP").Range("K1") = Application.UserName
Gruß
Nepumuk
AW: Markro "Speicherdatum" u. "Anwender"
01.01.2009 17:16:00
Ingo
Super, es funktioniert !!!
Danke und frohes 2009 !!!
ingo
AW: Markro "Speicherdatum" u. "Anwender"
31.12.2008 09:20:00
Tino
Hallo,
so müsste es gehen.

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
With ThisWorkbook.Sheets("Gesamt DP")
'Letztes Speicherdatum
.Range("H1") = Now
'Letzter Anwender
.Range("K1") = Environ("USERNAME")
End With
End Sub


Gruß Tino

AW: Markro "Speicherdatum" u. "Anwender"
01.01.2009 17:19:00
Ingo
Ich danke Dir !!!
Lösung Deines Vorgängers hat schon funktioniert !!!
Frohes 2009 !!!
ingo
Anzeige
AW: Markro "Speicherdatum" u. "Anwender"
01.01.2009 17:31:00
Tino
Hallo,
Du musst Dich nur entscheiden welchen Benutzername Du haben möchtest.
Ist der in Excel unter Optionen eingetragene Benutzername
Application.UserName
Ist der am Rechner angemeldete Benutzername
Environ("USERNAME")
Gruß Tino

300 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige