Daten aus externer Datei öfter als jede Minute akt
02.06.2015 16:01:47
Nepumuk
Modul der Mappe:
Option Explicit
Private Sub Workbook_BeforeClose(Cancel As Boolean)
If Not Saved Then
Select Case MsgBox("Sollen Ihre Änderungen in '" & Name & _
"' gespeichert werden", vbExclamation Or vbYesNoCancel)
Case vbYes
Save
Case vbNo
Saved = True
Case vbCancel
Cancel = True
End Select
End If
If Not Cancel Then Call Timer_Stop
End Sub
Private Sub Workbook_Open()
Call Timer_Start
End Sub
Standardmodul:
Option Explicit
Private ldtmNext As Date
Public Sub Timer_Start()
Call Tabelle1.QueryTables(1).Refresh
ldtmNext = Now + TimeSerial(0, 0, 10) '***** alle 10 Sekunden *****
Call Application.OnTime(EarliestTime:=ldtmNext, Procedure:="Timer_Start", Schedule:=True)
End Sub
Public Sub Timer_Stop()
On Error Resume Next
Call Application.OnTime(EarliestTime:=ldtmNext, Procedure:="Timer_Start", Schedule:=False)
End Sub