Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

Aktuelle Themen

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit

Datumsfunktion in Excel

Frage Microsoft Microsoft Office

Mitglied: 2P

2P (Level 2) - Jetzt verbinden

15.04.2007, aktualisiert 15:32 Uhr, 11775 Aufrufe, 2 Kommentare

Hallo.

Ich möchte mit Excel eine Vorlage erstellen. In einer Zelle soll dabei das Datum erscheinen (quasi "=HEUTE()" ). Nun zu dem Problem. Wenn ich anhand der Vorlage ein Arbeitsblatt erstelle und abspeichere liegt das aktuelle Datum vor - öffne ich diese Datei zu einem späteren Zeitpunkt wieder, wird das Datum jedoch wieder aktualisiert. Genau das möchte ich nicht. Ich suche also eine Funktion wie "ERSTELLDATUM" oder ähnliches. Wäre schön wenn jmd. so etwas kennt.

Bis dann ...
Mitglied: miniversum
15.04.2007 um 12:28 Uhr
Du kannst dir ja, falls das geht, so eine Zellfunktion ERSTELLDATUM als macro selbst schreiben.

miniversum
Bitte warten ..
Mitglied: bastla
15.04.2007 um 15:32 Uhr
Hallo 2P!

Da mir ohne Verwendung von VBA dazu keine Lösung bekannt wäre, finde ich miniversum's Idee gut. Allerdings scheint es so, als würde bei benutzerdefinierten Vorlagen in den Eigenschaften der daraus entstehenden Arbeitsmappe das Erstellungsdatum der Vorlage (.xlt) gespeichert.

Auf die Schnelle fiele mir dazu folgender Workaround ein: Vor dem Speichern der Vorlage das Erstellungsdatum auf 0 setzen, beim Öffnen der neuen Mappe auf Basis der Vorlage das Erstellungsdatum überprüfen und, falls noch 0 (was es eigentlich sein muss), auf das aktuelle Datum setzen sowie die dafür zuständigen Makros löschen.

Dazu wäre folgendes nötig:

Ein Modul für die Function zum Auslesen des Datums:
01.
Function Erstellungsdatum() 
02.
Erstellungsdatum = ThisWorkbook.BuiltinDocumentProperties(11) 
03.
End Function
sowie die beiden folgenden Makros in "Diese Arbeitsmappe":
01.
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) 
02.
ThisWorkbook.BuiltinDocumentProperties(11).Value = 0 
03.
End Sub 
04.
 
05.
Private Sub Workbook_Open() 
06.
If ThisWorkbook.BuiltinDocumentProperties(11) = 0 Then 
07.
    ThisWorkbook.BuiltinDocumentProperties(11).Value = Now 
08.
End If 
09.
ThisWorkbook.VBProject.VBComponents("DieseArbeitsmappe").CodeModule.DeleteLines 1, _ 
10.
ThisWorkbook.VBProject.VBComponents("DieseArbeitsmappe").CodeModule.CountOfLines 
11.
End Sub
Sehr elegant ist das nicht gerade, aber damit kann dann in einer Tabelle mit
01.
=Erstellungsdatum()
oder über "Datei / Eigenschaften / Statistik" Datum (und Uhrzeit) der Erstellung der Arbeitsmappe ausgelesen werden.

Falls Du tatsächlich nur statisch in eine Zelle das Datum schreiben willst, müsstest Du im "Workbook_Open" nach dem "End If" folgende Zeilen einfügen:
01.
With ThisWorkbook.Worksheets(1).Range("E2") 
02.
    .Value = ThisWorkbook.BuiltinDocumentProperties(11) 
03.
    .NumberFormat = "mm/dd/yyyy" 
04.
End With
Damit wird in die Zelle E2 der ersten Tabelle das Erstellungsdatum eingetragen und als Datum formatiert. In diesem Fall bräuchtest Du das oben beschriebene Modul mit der Function nicht zu erstellen.

Grüße
bastla

P.S.: Soviel übrigens zur Zuverlässigkeit der "Dateieigenschaften" in Office ...
Bitte warten ..
Ähnliche Inhalte
VB for Applications
gelöst DB-Abfrage in Excel mit Kriterien aus Excel (11)

Frage von JensDND zum Thema VB for Applications ...

Microsoft Office
Excel 2010 - Microsoft Excel kann die Daten nicht kopieren (4)

Frage von EDV-Oellerking zum Thema Microsoft Office ...

Batch & Shell
gelöst Excel Farblich (3)

Frage von Berlin62 zum Thema Batch & Shell ...

Batch & Shell
gelöst Powershell excel (6)

Frage von Crank69 zum Thema Batch & Shell ...

Neue Wissensbeiträge
Windows Update

Microsoft Update KB4034664 verursacht Probleme mit Multimonitor-Systemen

Tipp von beidermachtvongreyscull zum Thema Windows Update ...

Viren und Trojaner

CNC-Fräsen von MECANUMERIC werden (ggf.) mit Viren, Trojanern, Würmern ausgeliefert

(4)

Erfahrungsbericht von anteNope zum Thema Viren und Trojaner ...

Windows 10

Windows 10: Erste Anmeldung Animation deaktivieren

(3)

Anleitung von alemanne21 zum Thema Windows 10 ...

Heiß diskutierte Inhalte
Router & Routing
gelöst Linksys wrt1200ac v2 mit dd-wrt: keine vlan-einstellungen im GUI (15)

Frage von Pixi123 zum Thema Router & Routing ...

E-Business
Wo tragt ihr eure privaten Termine ein? (13)

Frage von honeybee zum Thema E-Business ...

Netzwerkprotokolle
Leiten "dumme" Switches VLAN-Tags mit durch? (13)

Frage von coltseavers zum Thema Netzwerkprotokolle ...

Windows Server
Terminalserver starten willkürlich neu (12)

Frage von thaefliger zum Thema Windows Server ...