Datumsanzeige der letzten Aktualisierung in Excel
Schritt-für-Schritt-Anleitung
Um das Datum der letzten Aktualisierung in Excel anzuzeigen, kannst du das AfterRefresh-Event des QueryTable-Objektes verwenden. Hier ist eine Schritt-für-Schritt-Anleitung, wie du dies umsetzen kannst:
-
Öffne den VBA-Editor in Excel, indem du ALT + F11 drückst.
-
Erstelle ein neues Klassenmodul:
- Klicke mit der rechten Maustaste auf "VBAProject (deineArbeitsmappe)".
- Wähle "Einfügen" > "Klassenmodul".
- Benenne das Modul, z.B.
clsQueryTable.
-
Füge folgenden Code in das Klassenmodul ein:
Public WithEvents qt As QueryTable
Private Sub qt_AfterRefresh(ByVal Erfolg As Boolean)
If Erfolg Then
Sheets("DeinBlatt").Range("A1").Value = "Letzte Aktualisierung: " & Now
End If
End Sub
-
Setze den Code für dein QueryTable in ein reguläres Modul:
Dim myQueryTable As clsQueryTable
Sub InitializeQueryTable()
Set myQueryTable = New clsQueryTable
Set myQueryTable.qt = Sheets("DeinBlatt").QueryTables(1) ' Index anpassen
End Sub
-
Rufe die InitializeQueryTable-Subroutine auf, um das AfterRefresh-Event zu aktivieren.
Jedes Mal, wenn du die Daten aktualisierst (z.B. über "DATEN - Alle Aktualisieren"), wird das Datum der letzten Aktualisierung in Zelle A1 des angegebenen Blattes angezeigt.
Häufige Fehler und Lösungen
-
Fehler: "Nothing happens after refresh"
Lösung: Stelle sicher, dass das AfterRefresh-Event korrekt zugewiesen ist und dass das QueryTable tatsächlich existiert. Überprüfe auch, ob das Blatt und die Zelle, in die das Datum geschrieben werden soll, richtig angegeben sind.
-
Fehler: "Klassenmodul nicht gefunden"
Lösung: Vergewissere dich, dass du ein Klassenmodul erstellt hast und den richtigen Namen im Code verwendest.
Alternative Methoden
Wenn du keine VBA-Lösungen verwenden möchtest, kannst du auch Power Query in Excel nutzen, um die Daten zu aktualisieren. In Power BI gibt es ähnliche Möglichkeiten, das Aktualisierungsdatum anzuzeigen. Mit der Funktion DateTime.LocalNow() könntest du das aktuelle Datum und die Uhrzeit als Teil deiner Datenquelle einfügen.
Praktische Beispiele
Ein praktisches Beispiel zur Verwendung des AfterRefresh-Events:
Private Sub qt_AfterRefresh(ByVal Erfolg As Boolean)
If Erfolg Then
Sheets("Daten").Range("B2").Value = "Daten wurden zuletzt aktualisiert am: " & Format(Now, "dd.mm.yyyy HH:mm:ss")
End If
End Sub
Dieses Beispiel speichert das Datum und die Uhrzeit der letzten Aktualisierung in Zelle B2 des Blattes "Daten".
Tipps für Profis
- Verwende Fehlerbehandlung in deinem VBA-Code, um sicherzustellen, dass dein Makro auch bei unerwarteten Problemen stabil bleibt.
- Überlege, ob du die Excel VBA Table Update Events für deine Anwendung nutzen kannst, um noch spezifischere Anpassungen vorzunehmen.
- Halte deinen Code modular, um die Wartbarkeit zu erhöhen und die Wiederverwendbarkeit zu fördern.
FAQ: Häufige Fragen
1. Wie kann ich das Datum der letzten Aktualisierung in einer Power BI-Datenquelle anzeigen?
In Power BI kannst du das Aktualisierungsdatum anzeigen, indem du eine benutzerdefinierte Spalte hinzufügst, die das aktuelle Datum speichert, wenn die Daten aktualisiert werden.
2. Was ist der Unterschied zwischen "Zuletzt geändert" und "Zuletzt aktualisiert"?
"Zuletzt geändert" bezieht sich auf Änderungen an der Datei selbst, während "Zuletzt aktualisiert" sich ausschließlich auf die Aktualisierung der Daten aus einer externen Quelle bezieht.