Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
792to796
792to796
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Datum automatisch erstellen

Forumthread: Datum automatisch erstellen

Datum automatisch erstellen
16.08.2006 12:27:24
Ralf
Hallo Excel Experten,
ich habe eine Datei erstellt, in der
auch das Datum angezeigt wird =heute()
Nun möchte ich, dass in einem Feld (z.B. AM3)
das heutige Datum immer fest erstellt wird,
damit ich beim nächsten Öffnen weiß, aaaaah
letzte Aktualisierung war am .....?
Hat jemand hierzu eine Idee ?
Wäre für jeden Tipp dankbar !!!
Viele Grüße
Ralf
Anzeige

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Datum automatisch erstellen
16.08.2006 12:41:40
egres
Hallo Ralf
Kopiere dieses Makro in "DieseArbeitmappe" 

Private Sub Workbook_Open()
Range("AM3").Select
ActiveCell.FormulaR1C1 = "=TODAY()"
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
End Sub

Gruss
Egres
Anzeige
AW: Datum automatisch erstellen
16.08.2006 12:54:40
Hugo
Hallo,

Private Sub Workbook_Open()
Sheets(1).Range("AM3") = Date
End Sub

Hugo
Falsches Ereignis
16.08.2006 13:03:04
Hugo
Hallo,
nicht das Open, sondern das Before_Save-Ereignis nutzen!
Hugo
Danke Hugo !
16.08.2006 13:27:57
Ralf
Hallo Hugo,
ich habe Deine Änderung miteingebaut und es
(wie man sagt so schön) f u n z t ganz toll.
Viele Grüße
Ralf
Anzeige
Danke Egres !
16.08.2006 13:25:54
Ralf
Hallo Egres,
vielen Dank für Deine schnelle Antwort.
Du hast mir sehr geholfen.
Viele :-) Grüße
Ralf
AW: Datum automatisch erstellen
16.08.2006 13:09:54
Heide_Tr
hallo Ralf,
mit nachfolgendem Code (kopiere ihn in "DieseArbeitsmappe") wird bei jedem Öffnen die Zelle AM3 mit dem Speicherzeitpunkt versorgt:

Private Sub Workbook_Open()
Range("AM3") = "Letzte Speicherung: " & _
ActiveWorkbook.BuiltinDocumentProperties("Last save time").Value
End Sub

hier nur mit dem Datum:

Private Sub Workbook_Open()
Range("AM3") = "Letzte Speicherung: " & _
Left(ActiveWorkbook.BuiltinDocumentProperties("Last save time").Value, 10)
End Sub

viele Grüße. Heide
Anzeige
Danke Heide !
16.08.2006 13:30:34
Ralf
Hallo Heide,
auch Dir ganz herzlichen Dank. Dies ist
wirklich ein super tolles Forum, gleich
drei Antworten in so kurzer Zeit. Ich hoffe,
ich kann mich mal revanchieren ( wenn ich mehr
weiß :-)
Viele Grüße
Ralf
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige