aktualisierung aus Access
03.02.2019 20:24:57
Alex
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