Office: User der zuletzt gespeichert hat anzeigen lassen

Guten Morgen Forumsgemeinde,

mich beschäftigt ein - für euch bestimmt kleines -Problem.
Ich möchte in einer Zelle das letzte Speicherdatum anzeigen lassen.
Das habe ich schonmal hinbekommen:

Public Function Speicherdatum() as String
Application.Volatile
Speicherdatum = Format(FileDateTime(ThisWorkbook.FullName), „dd.mm.yyyy“)
End Function

Aber ich benötige noch eine Anzeige in einer Zelle, wer die Exceltabelle als letztes gespeichert hat, also den Namen.
Den ich habe verschiedene User, die auf die Datei zugreifen und bearbeiten.

Ich habe Excel 2007 im Einsatz.

Danke schonmal vorab für eure Mühe!

 

Hi,

benutze Environ("Username") oder Application.UserName

Bis später,
Karin

 

Hallo Beverly,

zunächst einmal vielen Dank.
Allerdings kann ich deiner Ausführung nicht so ganz folgen, da ich nicht ganz so viel Ahnung von VBA habe.

So schaut dann die Programmierung aus:

Public Function Speicheruser() As String
Application.UserName
Speicheruser = Format(FileDateTime(ThisWorkbook.FullName), „“)
End Function

Das rote muss ich dann wie deklarieren?

Nochmals Danke!

 

Hi,

ungetestet:

Code:

[COLOR=#0000CD]Public Function Speicherdatum() as String
   Application.Volatile
   Speicherdatum = Format(FileDateTime(ThisWorkbook.FullName), "dd.mm.yyyy")[B] & Application.Username[/B]
End Function[/COLOR]

Bis später,
Karin

 

Nochmals Hallo!
:)

Super, das funktioniert. Ich habe es ein wenig verfeinert und dann schaut das so aus:

Public Function Speicherdatum() As String
Application.Volatile
Speicherdatum = Format(FileDateTime(ThisWorkbook.FullName), " dd.mm.yyyy ") & ("von ") & Application.Username
End Function

Allerdings würde ich gerne den Namen in eine eigene Zelle anzeigen lassen.

Was müsste ich da verändern?

So schnelle Antworten habe ich nicht erwartet...danke dafür!

 

Hi,

wie rufst du die Funktion auf?

Bis später,
Karin

 

Hallöle,

ich gebe in einer Zelle (egal welche) dann

=Speicherdatum()

ein und danach (also ENTER drücken) wird mir das Speicherdatum und der Name angezeigt:

18.04.2013 von Alcotester

Oder meintest du ALT + F11?
Einfügen->Modul

 

Hi,

ich meinte schon, wie du die Funktion startest und nicht wie du sie im VBA-Editor einfügst ;)

Soweit mir bekannt ist, kann man mit einer UDF (User defined Function = Benutzer definierten Funktion), welche man aus einer Zelle heraus aufruft, nur den Inhalt der aufrufenden Zelle ändern, nicht jedoch den Inhalt einer anderen Zelle.

Bis später,
Karin

 

Hi,

das sehe ich genauso.
Ich muss eine neue UDF erstellen.
Und genau um diese neue UDF gehts...

Übrigens: das letzte Speicherdatum ist eigentlich das Öffnungsdatum...da muss ich mir auch noch etwas überlegen...

 

Hi,

da es mit einer UDF nicht geht, verwende stattdessen das Doppelklick-Ereignis des Tabellenblattes - dann kannst du auch Uhrzeit in die Doppelklickzelle und z.B. in die Nachbarzelle den Benutzernamen schreiben.

Bis später,
Karin

 

Function Speicherdatum()
Speicherdatum = ThisWorkbook.BuiltinDocumentProperties("last save time") & (" von ") & Application.UserName
End Function

So, mit dieser Funktion wird das letzte Speicherdatum nun komplett angezeigt und auch der User wird angezeigt.
Mir persönlich würde das Datum ausreichen.

@ Beverly: Ich habe verstanden, was du meinst im Bezug auf das splitten des Speicherdatums und des Users.
Aber wie sieht die Programmierung des Users aus?
Bei dem Speicherdatum lasse ich das hier weg:
& ("von ") & Application.Username

Aber wie bekomme ich es in eine andere Zelle einprogrammiert?

DANKE SCHÖN!
;)

 

Das hatte ich schon geschrieben: das geht mit einer UDF nicht. Eine Alternative hatte ich auch bereits angeboten.

Bis später,
Karin