AW: heute() soll nur bedingt verändert werden
07.10.2007 20:05:51
Tanja
Hallo, Jörg,
sieh doch mal hier http://www.kmbuss.de/Excel-CD/udf.htm#005
nach, du kannst selbst Funktionen (wie z.B. Datum Datei erstellt) in Excel erstellen. Die Funktion speichern, dann ist sie in Excel unter Einfügen-Funktion-Benutzerdefiniert (wie z.B. Summe in den üblichen Funktionen) verfügbar.
Und zwar Excel aufrufen, Extras-Makros-VBA-Editor-Einfügen Prozedur (1. Function, 2.Public), am besten in der Persönl.xls, dann steht dir die Funktion immer zur Verfügung. Allerdings hatte ich gerade selbst dabei Schwierigkeiten, dies als Funktion für mich zur Verfügung zu stellen. Vielleicht lässt du dir besser dabei helfen oder jemand anders ist so nett und beschreibt es dir nachvollziehbarer.
Option Explicit
Public Function Erstellt() As String
Application.Volatile
Erstellt = _
"Erstellt am " & ActiveWorkbook.BuiltinDocumentProperties("Creation Date") & " durch " & _
ActiveWorkbook.BuiltinDocumentProperties("Author")
End Function
Ergibt folgenden Eintrag in der Zelle (wenn du die Funktion ausführst):
Erstellt am 07.10.2007 19:38:53 durch T.R. = Benutzername in Excel (Extras-Allgemein-Benutzername)
Am besten "kürzen" um die Teile, die du nicht benötigst, eventuell so:
Option Explicit
Public Function Erstellt() As String
Application.Volatile
Erstellt = _
& ActiveWorkbook.BuiltinDocumentProperties("Creation Date")
End Function
Ergibt: 07.10.2007 19:51:51
Dies könntest du dann im Zusammenspiel mit einer Wenn-Dann-Formel auch mit Zelle H52 abgleichen. Die Frage ist nur, in was sich das Datum dann verändern soll. Ich habe es ausprobiert, es geht. Ich hoffe, es hilft ein bisschen, wenn du netzweit suchst, wirst du feststellen, dass viele Leute dies auch schon gesucht haben.
Grüsse aus Berlin, Tanja