Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Aktuelles Datum in Zelle beim Öffnen der Datei eintragen.

Aktuelles Datum in Zelle beim Öffnen der Datei eintragen.
16.07.2024 07:17:50
Joe159
Guten Morgen zusammen,

ich könnte bitte Hilfe von Profis gebrauchen! Ich habe eine Excel Datei mit mehreren Registrierkarten. Auf jeder Registrierkarte soll das Datum beim Öffnen der Datei eingetragen werden. Das Datum soll sich aber nicht mehr im Laufe des Tages und bei dem Übergang zum nächsten Tag ändern, auch wenn in der Datei mit VBA gearbeitet wird. Am folgenden Tag soll die Datei manuell gespeichert werden, mit dem Datum von dem vorangegangenen Tag. Anschließend wird die Datei wieder neu geöffnet, mit dem tagesaktuellen Datum.

Vielen Dank für Eure Hilfe im Voraus!

Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Aktuelles Datum in Zelle beim Öffnen der Datei eintragen.
16.07.2024 08:05:40
Alwin Weisangler
Hallo,
das kann man im WorkbookOpen machen. Aber was soll bewirken.
Schluss letztendlich wird im beim Öffnen immer das aktuelle Datum sichtbar sein.
Einzige Ausnahme man ändert den Namen der Datei oder den Speicherort. Da wird die Ausführung von VBA erst mal verhindert. Da könnte man das vorherige Datum sehen.
Ins Modul des Workbooks:


Option Explicit

Private Sub Workbook_Open()
Dim i&
For i = 1 To Sheets.Count
Sheets(i).Cells(1, 1) = Date
Next i
End Sub


Gruß Uwe
Anzeige
AW: Aktuelles Datum in Zelle beim Öffnen der Datei eintragen.
16.07.2024 08:31:45
Joe159
Hallo Uwe,

vielen Dank für Deine Nachricht!

Ich bin quasi noch Anfänger beim VBA programmieren... Wie müßte man den Programmtext schreiben wenn:
- die Datei "Mappe1" heißt
- der Reiter "Tabelle1" heißt und
- das Datum in die Zelle "B2" soll?

Vielen Dank!
AW: Aktuelles Datum in Zelle beim Öffnen der Datei eintragen.
16.07.2024 08:52:53
GerdL
Moin Joe,

wie gehabt ins Modul DieseArbeitsmappe der Datei stellen u. die Datei speichern.
Private Sub Workbook_Open()

'mit dem Codenamen der Tabelle
Tabelle1.Cells(2, 2).Value = Date
'oder bspw.
'Worksheets("Tabelle1").Range("B2").Value = Date
End Sub

Gruß Gerd
Anzeige
AW: Aktuelles Datum in Zelle beim Öffnen der Datei eintragen.
Joe159
Wow, super!!! Es funktioniert!

Vielen Dank für Eure Hilfe Gerd und Uwe!

Ich wünsche einen schönen Tag!

Viele Grüße!
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige