Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.10.2025 10:48:58
Zufällige Uhrzeit
19.10.2025 10:46:18
Zufallszahlen nur wenn Datum ab kommenden Sonntag
17.10.2025 17:57:35
Zellen-Name aus A1 nach H1 übertragen mit Prä- + Suffix
17.10.2025 11:36:58
verschachteltes Dropdown-Menü
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1152to1156
1152to1156
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA Änderungsdatum anzeigen

Forumthread: VBA Änderungsdatum anzeigen

VBA Änderungsdatum anzeigen
Notzm
Hi Leute!
Ich will in einer Datei die jeweils letzte Änderung/Speicherdatum anzeigen.
Dies soll automatisch beim Öffnen der Datei aktualisiert werden.
Wenn ich folgendes Sub eingebe, macht er das aber nur wenn ich dann in der geöffneten Datei das Sub laufen lasse. Warum?

Sub test()
Dim deinedatei As String
deinpfad = ThisWorkbook.Path
deinname = ThisWorkbook.Name
deinedatei = deinpfad & "\" & deinname
Worksheets("Tabelle1").Range("c3").Value = (FileDateTime(deinedatei))
End Sub

Vielen Dank für eure Hilfe!!!!
Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: VBA Änderungsdatum anzeigen
20.04.2010 16:20:50
Schorschi
Hallo Notzm,
folgenden Code in den Codeteil
DieseArbeitsmappe
Private Sub Workbook_Open()
test
End Sub
Gruss
Schorschi
AW: VBA Änderungsdatum anzeigen
20.04.2010 16:41:16
Notzm
Ähm...da blick ich nicht durch...sorry
Kann ich vl. auch für jedes Arbeitsblatt in einer Excel-Datei solch ein Makro anwenden? D.h. dass man sieht wann welches Arbeitsblatt innerhalb der Datei zum letzten Mal geändert wurde?
Grüße
Anzeige
AW: VBA Änderungsdatum anzeigen
21.04.2010 16:36:21
Schorschi
Hallo Notzm,
Zur Frage:
"Kann ich vl. auch für jedes Arbeitsblatt in einer Excel-Datei solch ein Makro anwenden? D.h. dass man sieht wann welches Arbeitsblatt innerhalb der Datei zum letzten Mal geändert wurde?"
folgenden Code in den Codeteil des Arbeitsblattes:
Private Sub Worksheet_Change(ByVal Target As Range)
ActiveSheet.Range("A1").Value = CDate(Now())
End Sub
Die Zelle A1 auf dem Tabellenblatt mit TT.MM.JJJJ hh:mm:ss
"Benutzerdefiniert formatieren".
Als Zusammenfassung für die einzelnen Arbeitsblätter in einer Zusammenstellung
mit Formeln auf diesen Bezug auswerten.
Gruss
Schorschi
Anzeige
AW: VBA Änderungsdatum anzeigen
21.04.2010 11:49:13
Notzm
Kann mir hier jemand weiterhelfen?
;

Forumthreads zu verwandten Themen

Dateien mit Änderungsdatum
Günter

Hallo Zusammen,
ich möchte aus einem Verzeichnis alle PDF-Dateien in einer Liste anzeigen lassen, die einen bestimmten Muster im Dateinamen entsprechen. In dieser Liste soll nicht nur der komplette Dateiname sondern auch das Änderungsdatum angzeigt werden. Aus der Liste soll der Anwender ei...
16.10.2009 07:15:05
Thread-ID: 1109991
7 Beiträge
Anzeige
Änderungsdatum
georg

Hallo,
ich habe in a1, c1, e1 usw. Werte in den Zellen.
Nur wenn die Werte aktualisiert werden, soll in den Nachbarzellen das aktuelle Änderungsdatum eingetragen werden.
Beim bloßen Öffnen oder Lesen der Daten soll das Datum nicht geändert werden.
Kann man das mit VBA realisier...
25.01.2010 11:13:08
Thread-ID: 1132644
8 Beiträge
Einlesen nach Änderungsdatum
SkyValley

Hallo zusammen
Ich lese mit diesem Code Dateien ein, die von 1 bis 200 nummeriert sind.
Da aber ab und an in dem Ordner nicht alle 200, sondern nur ein Teil des ganzen sich befindet, kann es vorkommen, dass die aktuellste Datei die Datei 3 ist. Es befinden sich dann z.B. Dateien in der...
02.06.2011 12:47:33
Thread-ID: 1216996
2 Beiträge
Letztes Änderungsdatum abgleichen
Peter

Guten Tag
Mit einem Makro in der Datei "Exporte_zusammenfuegen_V20111018A.xls" ( vgl. https://www.herber.de/bbs/user/77063.xls ) wird eine neue Datei "Exporte.xls" erstellt und aus allen Exceldateien, die in einem bestimmten Pfad gespeichert sind, ein bestimmter Datenrange aus "Tabelle1" in...
18.10.2011 11:45:07
Thread-ID: 1234306
2 Beiträge
Erstes Änderungsdatum speichern
Fabian

Hallo,
wie kann ich es realisieren, dass sobald das erste mal eine Zelle beschrieben wird A1 zugleich das Datum in B1 eingetragen wird. Wird nochmals was geändert, ändert dies nichts an dem Datum ,
Sobald eine Zeile drüber einfügt wird, muss der Bezug auf der Zelle bleiben, sprich auch...
04.11.2015 16:08:25
Thread-ID: 1456332
2 Beiträge
letzte Änderungsdatum einer Datei
stef26
Hallo und Guten Morgen,
ich hab noch ein Thema, bei dem ich auch nicht weiß wie ich das machen kann.
Ich habe in einem Tabellenblatt in einer Zelle z.B. B1 den Pfad und Dateiname stehen.
z.B: c:\Temp\Test.xls
Wie kann ich in der Zelle B2 zu dieser Datei mir das letzte Änderungsda...
27.04.2016 07:08:49
Thread-ID: 1490525
7 Beiträge
Anzeige
Änderungsdatum übernehmen wenn Wert identisch
Josef

Hallo Leute,
ich habe mal wieder ein Anliegen und hoffe das ihr mir helfen könnt.
Es soll folgendes passieren:
Wenn der Wert in Zelle A2 mit Zelle B2 übereinstimmt, dann soll in Zelle C2 das Änderungsdatum eingetragen werden. Es funktioniert zwar per Formel, aber wenn ich die Liste...
16.06.2016 10:26:57
Thread-ID: 1499238
6 Beiträge
Änderungsdatum einer Zelle
Häupler

Hallo,
ich habe in einer Spalte sämtliche Dateinamen mir ausgeben lassen, die sich in einem Ordner befinden. Jetzt interessiert mich noch das Änderungsdatum dieser Dateien. Wie kann ich jetzt in Spalte B dieses anzeigen lassen?
also:
---A------------B---------
xyz.csv 25.01.2...
16.09.2016 09:04:56
Thread-ID: 1514693
5 Beiträge
Änderungsdatum zusätzlich mit auflisten...
Florian

Hi Zusammen,
folgendes Problem:
Ich habe hier ein Makro, das mir aus dem Ordner ("Z:\ablage\AV\....") alle Namen der Excel Dateien und der jeweiligen Arbeitsblätter auflistet. Jetzt würde ich aber gerne das Makro so erweitern, das es mir noch zusätzlich das letzte Änderungsdatum der Exc...
12.01.2017 16:54:27
Thread-ID: 1534707
5 Beiträge
Änderungsdatum und Dateigröße
Sergej

Hallo Leute,
ich brauche bitte euere Unterstützung. Ich markiere eine Zelle, die als Zellinhalt den Pfad incl. Dateiname beinhaltet, dann starte ich das Makro und bekomme in zwei Spalten nach rechts den Änderungsdatum der Datei und eine Spalte weiter die Dateigröße in KB. Das funktioniert s...
02.07.2017 13:35:53
Thread-ID: 1567009
3 Beiträge
Änderungsdatum einer auf Platte gespeicherten Date
ExcelDirk

Wertes Forum,
in einer Zelle ist ein Hyperlink zu einer auf der Festplatte gespeicherten Excel-Datei.
Ist es möglich, in einer weiteren Zelle das Änderungsdatum dieser Excel-DAtei auszugeben, ohne die Datei durch Klicken auf Hyperlink zu öffnen?
Vielen Dank und viele Grüße
Dirk<...
10.08.2017 12:33:08
Thread-ID: 1573674
7 Beiträge
Zelländerungsdatum in zelle schreiben
Jens

Hallo,
hat jemand eine Idee wie man das erste Zelländerungsdatum sichert?
Siehe Datei
https://www.herber.de/bbs/user/117500.xlsx
07.11.2017 16:44:57
Thread-ID: 1590029
5 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige
Anzeige

Infobox / Tutorial

VBA Änderungsdatum in Excel anzeigen

Schritt-für-Schritt-Anleitung

Um das Änderungsdatum in Excel anzuzeigen, kannst du ein einfaches VBA-Makro verwenden. Hier ist eine Schritt-für-Schritt-Anleitung:

  1. Öffne deine Excel-Datei.

  2. Drücke ALT + F11, um den VBA-Editor zu öffnen.

  3. Füge den folgenden Code in das Modul ein:

    Sub test()
   Dim deinedatei As String
   deinpfad = ThisWorkbook.Path
   deinname = ThisWorkbook.Name
   deinedatei = deinpfad & "\" & deinname
   Worksheets("Tabelle1").Range("C3").Value = (FileDateTime(deinedatei))
End Sub

  4. Um sicherzustellen, dass das Datum automatisch aktualisiert wird, füge den folgenden Code in das DieseArbeitsmappe-Modul ein:

    Private Sub Workbook_Open()
   test
End Sub

  5. Speichere die Datei als Makro-fähige Arbeitsmappe (xlsm).

Jetzt wird beim Öffnen der Datei das Änderungsdatum in Zelle C3 von "Tabelle1" angezeigt.

Häufige Fehler und Lösungen

  • Problem: Das Datum wird nicht aktualisiert.

    • Lösung: Stelle sicher, dass der Code im DieseArbeitsmappe-Modul korrekt eingefügt wurde und die Datei als Makro-fähige Datei gespeichert ist.

  • Problem: Fehlermeldung beim Ausführen des Makros.

    • Lösung: Überprüfe, ob die Tabelle "Tabelle1" existiert und die korrekten Berechtigungen für die Ausführung von Makros in Excel aktiviert sind.

Alternative Methoden

Wenn du das Änderungsdatum für jedes Arbeitsblatt anzeigen möchtest, kannst du den folgenden VBA-Code für jedes Arbeitsblatt verwenden:

Private Sub Worksheet_Change(ByVal Target As Range)
    ActiveSheet.Range("A1").Value = CDate(Now())
End Sub

Dieser Code aktualisiert die Zelle A1 jedes Mal, wenn eine Änderung auf dem Arbeitsblatt vorgenommen wird.

Praktische Beispiele

  • Beispiel 1: Zeige das Änderungsdatum in Zelle C3 von "Tabelle1" an.

    Nach dem Einfügen des Codes wird das Datum automatisch aktualisiert, wenn die Datei geöffnet wird.

  • Beispiel 2: Speichere das Änderungsdatum in Zelle A1 jedes Mal, wenn Änderungen auf einem Arbeitsblatt vorgenommen werden.

Tipps für Profis

  • Nutze benutzerdefinierte Formate in Excel, um das Datum in einem für dich passenden Format anzuzeigen.
  • Achte darauf, dass du regelmäßig Backups deiner Excel-Dateien machst, um Datenverlust zu vermeiden.
  • Teste deine Makros in einer Testdatei, bevor du sie in einer wichtigen Datei verwendest.

FAQ: Häufige Fragen

1. Wie kann ich das Änderungsdatum in einer anderen Zelle anzeigen?
Du kannst die Zellreferenz in deinem VBA-Code ändern, z.B. Worksheets("Tabelle1").Range("D5").Value, um das Datum in Zelle D5 anzuzeigen.

2. Funktioniert dieser Code in Excel 365?
Ja, der Code funktioniert in Excel 365 sowie in älteren Versionen von Excel, solange Makros aktiviert sind.

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
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