Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 09:47:49
Daten aus mehreren Dateien untereinander importieren
25.04.2024 09:31:31
Bild "In Zelle platzieren"
25.04.2024 09:23:47
Spalten in Kreuztabelle hinzufügen/löschen je nach Vorgabe
25.04.2024 08:41:49
VBA: Probleme mit pdftk zum Zusammenfügen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
792to796
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
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 Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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
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)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige