Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Anzeige
Inhaltsverzeichnis

aktualisierung aus Access

Forumthread: aktualisierung aus Access

aktualisierung aus Access
03.02.2019 21:24:57
Alex
Hallo ich benutze folgende Codes um in excel Daten aus Access zu lesen und zu aktualisiern bzw Auto Save alle 2 Min. Nur irgendwie funktioniert die aktualisierung nicht.
Sub Makro5()
ActiveWorkbook.Connections("DBP").Refresh
Dim NT As Date
Application.DisplayAlerts = False
NT = Now + TimeValue("02:00:00")
Range("K1") = NT
Application.OnTime NT, "Makro5"
Save
Application.DisplayAlerts = True
End Sub

Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: aktualisierung aus Access
03.02.2019 21:35:21
Luschi
Hallo Alex
teste mal diesen Code
Debug.Print Hour(TimeValue("02:00:00"))
Debug.Print Minute(TimeValue("00:02:00"))
und die erkennst sicher den Unterschied!
Gruß von Luschi
aus klein-Paris
AW: aktualisierung aus Access
04.02.2019 20:59:53
Alex
Danke für die Antwort, habe die Codes mit eingebunden jedoch ohne Erfolg.
Die Daten die ich aus der Access lese werden nicht aktualisiert :(
Der Code speichert zwar alle 2 Stunden aber ohne Aktualisierung
Sub Makro5()
ActiveWorkbook.Connections("DBProduktionDECL2019").Refresh
ActiveWorkbook.Connections("BrakeDown").Refresh
Dim NT As Date
Application.DisplayAlerts = False
NT = Now + TimeValue("02:00:00")
Debug.Print Hour(TimeValue("02:00:00"))
Debug.Print Minute(TimeValue("00:02:00"))
Range("K1") = NT
Application.OnTime NT, "Makro5"
Save
Application.DisplayAlerts = True
End Sub

Anzeige
AW: aktualisierung aus Access
04.02.2019 21:22:46
Luschi
Hallo Alex,
wie ich sehe, hast Du meine Anspielung durch die Blume nicht verstanden:
NT = Now + TimeValue("02:00:00")
==» das sind 2 Stunden und nicht 2 Minuten
deshalb so: NT = Now + TimeValue("00:02:00")
Gruß von Luschi
aus klein-Paris
Anzeige
Anzeige
Live-Forum - Die aktuellen Beiträge
Datum
Titel
14.05.2026 13:31:09
14.05.2026 09:50:42
13.05.2026 19:14:18