letzte Speicherung dokumentieren

[artcreativity]

Hallo an Alle

ich verwende folgenden Code für die letzte Speicherung.

Private Sub Workbook_BeforeSave _
  (ByVal SaveAsUI As Boolean, Cancel As Boolean)
  Worksheets("Tabelle1").Range("S40").Value = _
    Format(Date, "dd.mm.yyyy")
End Sub


klappt auch super gut. Nun soll aber nicht nur das Datum sondern auch Uhrzeit und Anwendername mit angezeigt werden.
Bekomme das Format nicht geändert.

Kann jemand helfen?

danke im voraus

arcreativity

[Peter]

Hallo,

ich habe von VBA nicht viel Ahnung, aber du könntest es mal so probieren:

Code:

Private Sub Workbook_BeforeSave _
  (ByVal SaveAsUI As Boolean, Cancel As Boolean)
  Worksheets("Tabelle1").Range("S40").Value = _
    Format(Now, "DD.MM.YYYY hh:mm") & " " & Application.UserName
End Sub

Wenn das nicht funktioniert müsstest du auf die Experten warten.

[Kuwer]

Hallo,

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

  Worksheets("Tabelle1").Range("S40").Value = _

    Format(Now, "dd.mm.yyyy hh:nn, ") & Application.UserName

End Sub

Gruß Uwe

[RPP63]

Moin!
Ergänzend:
Falls Du statt des Excel-Benutzers den Windows-Anmeldenamen möchtest,
dann statt Application.UserName Environ("UserName")

Gruß Ralf

[Peter]

Hallo,

und jetzt erklärt einem VBA-Dummie noch warum diese Zeile im code von Uwe

Format(Now, "dd.mm.yyyy hh:nn, ") & Application.UserName

funktioniert.

Ich dachte zuerst das 'nn' wäre ein Tippfehler, aber der Code funktioniert.

[RPP63]

Hi Peter!
Die "richtige" Format-Abkürzung für Minute ist das n.
m funktioniert zwar auch, muss von VBA aber zunächst aus dem Kontext interpretiert werden, weil m eigentlich für month vorgesehen ist.
VBA unterscheidet im Gegensatz zur Excel-Oberfläche NICHT Case-sensitive.

Gruß Ralf

[Peter]

Hallo Ralf,

danke für die Info - wieder was gelernt.

[RPP63]

Nochmal genauer:

• Format(Now,"m") ergibt 8 für August
  
• Format(Now,"n") ergibt 37
  
• Format(Now,"dd.mm.yy hh:mm") ergibt 28.08.17 10:37
  

(hier wird dann das zweite m als Bestandteil eines Timestamps interpretiert)

Gruß Ralf

[Kuwer]

Hallo Peter,

und jetzt erklärt einem VBA-Dummie noch warum diese Zeile im code von Uwe
Format(Now, "dd.mm.yyyy hh:nn, ") & Application.UserName
funktioniert.

m oder mm oder m... steht für Monat.

Schau in der VBA-Hilfe unter Benutzerdefinierte Datums- und Zeitformate (Format-Funktion)

Gruß Uwe

[artcreativity]

danke