Gibt es eine Möglichkeit in VBA, um eine Zelle (oder das gesamte Arbeitsblatt) jede Minute zu aktualisieren. Ich würde gerne zum Beginn jeder Minute, also in Sekunde 00, eine Zelle aktualisieren.
Vielen Dank!
LG Stefan
Um eine Zelle in Excel jede Minute zu aktualisieren, kannst Du die Application.OnTime-Methode in VBA verwenden. Hier sind die Schritte, um dies einzurichten:
Öffne Excel und drücke ALT + F11, um den VBA-Editor zu öffnen.
Füge ein neues Modul hinzu:
Füge den folgenden Code in das Modul ein:
Dim nTime As Date
Sub StartTimer()
nTime = Now + TimeValue("00:01:00") ' Setzt den Timer auf 1 Minute
Application.OnTime nTime, "UpdateCell"
End Sub
Sub UpdateCell()
' Aktualisiere eine Zelle, z.B. A1
Range("A1").Value = Now
StartTimer ' Starte den Timer erneut
End Sub
Sub StopTimer()
On Error Resume Next
Application.OnTime nTime, "UpdateCell", , False
End Sub
Starte den Timer:
ALT + F8.Stoppe den Timer, wenn Du die Aktualisierung nicht mehr benötigst, indem Du „StopTimer“ ausführst.
ALT + F8 startest.Falls Du keine VBA-Lösung nutzen möchtest, kannst Du auch die Funktion „Daten aktualisieren“ in Excel verwenden, um alle Daten manuell zu aktualisieren. Allerdings bietet diese Methode keine automatische Aktualisierung in Sekunde 00. Eine weitere Möglichkeit ist die Verwendung von Excel-Add-Ins, die eine automatische Aktualisierung unterstützen.
Ein praktisches Beispiel könnte sein, die aktuelle Uhrzeit in Zelle A1 darzustellen. Jedes Mal, wenn die Zelle aktualisiert wird, wird der Inhalt auf die aktuelle Uhrzeit gesetzt. Das ist besonders nützlich für Anwendungen, bei denen die Zeit eine Rolle spielt, wie z.B. bei der Überwachung von Börsenkursen.
Range("A1").Value = Format(Now, "hh:mm:ss") ' Setzt die Uhrzeit in A1
MsgBox-Element hinzufügst.1. Kann ich mehrere Zellen gleichzeitig aktualisieren?
Ja, Du kannst den Code anpassen, um mehrere Zellen gleichzeitig zu aktualisieren. Zum Beispiel:
Range("A1").Value = Now
Range("B1").Value = "Aktualisiert"
2. Funktioniert das auch in Excel Online?
Nein, VBA ist nicht in Excel Online verfügbar. Diese Methode funktioniert nur in der Desktop-Version von Excel.
3. Wie kann ich den Timer anpassen, um häufiger oder seltener zu aktualisieren?
Ändere einfach den Wert in TimeValue("00:01:00") auf die gewünschte Zeitspanne, z.B. TimeValue("00:00:30") für alle 30 Sekunden.