Sub xxx()
MsgBox FileDateTime("c:\daten\dummy.xls")
End Sub
Sub test()
Dim deinedatei As String
deinpfad = ThisWorkbook.Path
deinname = ThisWorkbook.Name
deinedatei = deinpfad & "\" & deinname
worksheets("Tabelle1").range("a1").value = (FileDateTime(deinedatei))
End Sub
Function test()
Dim deinedatei As String
deinpfad = ThisWorkbook.Path
deinname = ThisWorkbook.Name
deinedatei = deinpfad & "\" & deinname
Worksheets("Tabelle1").Range("b7").Value = (FileDateTime(deinedatei))
End Function
Sub workbook_open()
Dim deinedatei As String
deinpfad = ThisWorkbook.Path
deinname = ThisWorkbook.Name
deinedatei = deinpfad & "\" & deinname
worksheets("Tabelle1").range("a1").value = (FileDateTime(deinedatei))
End Sub
Sub commndbutton1_click()
stehen
gib einfach dort den code ein. wenn du jetzt den vba explorer schließt und die entwicklungsumgebung wieder verläßt wird der code per knopfdruck ausgeführt
mfg richi
Function timestamp()
on error resume next
timestamp = FileDateTime(thisworkbook.path & "\" & thisworkbook.name)
End Function
Um in Excel das Datum der letzten Änderung einer Datei anzuzeigen, kannst du die folgende Methode verwenden. Diese Anleitung setzt voraus, dass du mit Excel und den integrierten VBA-Funktionen vertraut bist.
Öffne die Entwicklungsumgebung:
ALT + F11, um den Visual Basic for Applications (VBA) Editor zu öffnen.Füge ein neues Modul hinzu:
Füge den folgenden Code ein:
Function timestamp()
On Error Resume Next
timestamp = FileDateTime(ThisWorkbook.Path & "\" & ThisWorkbook.Name)
End FunctionSpeichere den Code und schließe den VBA-Editor.
Gib die Formel in eine Zelle ein:
=timestamp() ein. Jetzt wird das Datum der letzten Änderung direkt in der Zelle angezeigt.
Fehler: #NAME?
Ursache: Die Funktion timestamp() wurde nicht korrekt im VBA-Editor eingegeben oder gespeichert. Stelle sicher, dass der Code korrekt ist und dass du die Datei als .xlsm (Makro-fähige Datei) speicherst.
Problem: Datum wird nicht aktualisiert
Lösung: Wenn das Datum nicht automatisch aktualisiert wird, kannst du das Workbook_Open() Ereignis verwenden, um das Datum beim Öffnen der Datei zu aktualisieren. Verwende den folgenden Code:
Sub Workbook_Open()
Worksheets("Tabelle1").Range("A1").Value = timestamp()
End SubProblem: Makros werden nicht aktiviert
Stelle sicher, dass du beim Öffnen der Datei die Makros aktivierst, da sonst die Funktionen nicht ausgeführt werden.
Wenn du keine VBA-Funktion verwenden möchtest, gibt es auch andere Wege, um das Datum der letzten Änderung anzuzeigen:
Verwende die Eigenschaften der Datei:
Excel Datum letzte Änderung ohne VBA:
Beispiel für das Einfügen der letzten Änderung in Zelle A1:
Sub UpdateLastModifiedDate()
Worksheets("Tabelle1").Range("A1").Value = timestamp()
End SubBeispiel für die automatische Aktualisierung beim Öffnen:
Sub Workbook_Open()
Worksheets("Tabelle1").Range("B1").Value = timestamp()
End SubDurch diese Beispiele kannst du die letzte Änderung in Excel effizient anzeigen, ohne viel Aufwand.
Automatische Aktualisierung: Um sicherzustellen, dass das Datum immer aktuell bleibt, kannst du das Workbook_Open() Ereignis nutzen, um die letzte Änderung bei jedem Öffnen der Datei zu aktualisieren.
Erstelle eine Schaltfläche: Du kannst eine Schaltfläche in der Excel-Tabelle einfügen, die beim Klicken die letzte Änderung aktualisiert. Das schafft eine benutzerfreundliche Oberfläche.
Verwende bedingte Formatierung: Um die Zelle mit dem Datum hervorzuheben, kannst du die bedingte Formatierung verwenden, um beispielsweise das Datum rot zu färben, wenn es älter als 30 Tage ist.
1. Wie kann ich das Datum der letzten Änderung ohne VBA anzeigen?
Du kannst das Datum der letzten Änderung in den Dateieigenschaften finden, allerdings wird es nicht automatisch in Excel angezeigt.
2. Wird das Datum der letzten Änderung automatisch aktualisiert?
Das Datum wird nicht automatisch aktualisiert, es sei denn, du verwendest VBA, um das Datum beim Öffnen der Datei oder durch einen Button-Klick zu aktualisieren.
3. Wie füge ich die letzte änderung in eine Zelle ein?
Verwende die oben beschriebene VBA-Funktion timestamp() und gib sie in die gewünschte Zelle ein.
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen