macro alle 30 sek. wiederholen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

' ********************************************************************** ' Modul: DieseArbeitsmappe Typ: Element der Mappe(Sheet, Workbook, ...) ' ********************************************************************** Option Explicit Private Sub Workbook_Open() StartTimer End Sub Private Sub Workbook_BeforeClose(Cancel As Boolean) StopTimer End Sub ' ********************************************************************** ' Modul: Modul1 Typ: Allgemeines Modul ' ********************************************************************** Option Explicit Public RunWhen As Double Public Const cRunIntervalSeconds = 1800 ' Intervall in Sekunden Public Const cRunWhat = "autoakt2" Sub StartTimer() RunWhen = Now + TimeSerial(0, 0, cRunIntervalSeconds) Application.OnTime earliesttime:=RunWhen, procedure:=cRunWhat, _ schedule:=True End Sub Sub autoakt2() MsgBox "Test" StartTimer End Sub Sub StopTimer() On Error Resume Next Application.OnTime earliesttime:=RunWhen, _ procedure:=cRunWhat, schedule:=False End Sub

HI
du musst das Application.Ontime auch im Makro "autoakt2" ausführen, das Makro muss sich also immer selbst aufrufen.
allerdings musst du hierbei beachten, dass du den zuletzt gemachten Aufruf zurücknimmst, wenn du die Datei schließt.
ansonsten wird sich die Datei nach den 30 sec. öffnen und das Makro ausführen.
daher brauchst du folgende Codes noch zusätzlich:
1. in einem allgemeinen Modul

Option Explicit
Public NächsteStartzeit as Date
Sub autoakt2()
NächsteStartzeit = Now + TimeSerial(0, 0, 30)
Application.Ontime NächsteStartzeit, "autoakt"
End Sub

2. im Modul "DieseArbeitsmappe"

Private Sub Workbook_Open()
NächsteStartzeit = Now + TimeSerial(0, 0, 30)
Application.OnTime NächsteStartzeit, "autoakt2"
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
if NächsteStartzeit > Now then Application.Ontime NächsteStartzeit, "autoakt2", schedule:=false
End Sub

wenns aber nur um das reine Aktualisieren der Textdatei ohne weiter Markos geht, dann kannst du auch so vorgehen:
- importiere die Textdatei über die Importfunktion DATEN - EXTERNE DATEN - AUS TEXT
- stelle in den DATENBEREICHSEIGENSCHAFTEN das entsprechende Aktualisierungsintervall ein.
(kannst du auch nachträglich über das Kontextmenü hinzufügen (rechte Maustaste auf eine Zelle des Imports))
Gruß Daniel

Beliebteste Forumthreads (12 Monate)

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread