Workbook Name und Pfad verwenden
16.06.2021 07:55:07
Georg
die Zeile mit dem Änderungsdatum und dem ausgeschriebenen Pfad "Q..... " funktioniert, nur ist das nicht praktisch, da die Datei mehrmals schon umbenannt wurde.
Ich wollte das ganze etwas dynamischer gestalten, hab aber zu wenig Ahnung, wenn ich die Zeile mit ".... myPath..." aktiviere kommt Laufzeitfehler 5: ungültiger Prozeduraufruf oder ungültiges Argument.
Ich möchte lediglich, dass der Anwender beim Öffnen darauf hingewiesen wird, wann die Datei zum letzten Mal gespeichert wurde, siehe MsgBox.
Ihr könnt mir bestimmt weiterhelfen, vielen Dank.
Private Sub Workbook_Open()
Dim Änderungsdatum As String
Dim strPfad As String
Dim MyPath$, MyFullName$
MyPath = ActiveWorkbook.Path
MyFullName = ActiveWorkbook.FullName
' Änderungsdatum = Format(FileDateTime("Q:\Geschäftsführung\IT\06_Dokumentation\ServerDokus\GDK_egoSecure_Berechtigungen.xlsm"), "DD.MM.YYYY")
Änderungsdatum = Format(FileDateTime(MyPath & MyFullName), "DD.MM.YYYY")
MsgBox "Die Datei wurde zuletzt geändert am " & Änderungsdatum & vbCrLf & vbCrLf & _
"Datei bei Bedarf bitte AKTUALISIEREN!"
End Sub
Anzeige