Live-Forum - Die aktuellen Beiträge
Datum
Titel
10.05.2024 13:04:04
Stundenberechnung ohne 22:00 - 06:00 & Sonntag
10.05.2024 12:29:14
Alle ActiveX-Optionbuttons aus einem Groupname auf "Fal
10.05.2024 12:14:16
Darunterzellen addieren
10.05.2024 12:12:08
Code auf mehrere Button anwenden
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
936to940
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
936to940
936to940
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Makro wiederholen

Makro wiederholen
21.12.2007 09:45:40
fritz
Hallo Experten
Habe für euch ein wahrscheinlich ganz einfaches Problem:
Habe ein Makro gemacht dass nur Refresh macht, jetzt geht es mir darum dieses makro automatisch sagen wie all 3-5 min auszuführen ohne immer auf die taste refresh zu drücken?
Danke für jede hilfe
gruss
fritz

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Makro wiederholen
21.12.2007 09:50:04
Josef
Hallo Fritz,
dazu gibt's "OnTime".
Option Explicit

Public RunWhen As Double
Public Const cRunIntervalSeconds = 120 ' Intervall in Sekunden
Public Const cRunWhat = "The_Sub"

Sub StartTimer()
RunWhen = Now + TimeSerial(0, 0, cRunIntervalSeconds)
Application.OnTime earliesttime:=RunWhen, procedure:=cRunWhat, _
    schedule:=True
End Sub

Sub The_Sub()

MsgBox "The_Sub"

StartTimer

End Sub

Sub StopTimer()
On Error Resume Next
Application.OnTime earliesttime:=RunWhen, _
    procedure:=cRunWhat, schedule:=False
End Sub

Gruß Sepp

Anzeige
Vielen DANK Sepp
21.12.2007 09:52:00
fritz

Noch eine Frage
21.12.2007 09:57:00
fritz
Ich habe ja dieses Makro:

Sub Refresh()
' Refresh Makro
' Makro am 21.12.2007 von Matthias Jurkowski  aufgezeichnet
Calculate
End Sub


Wo soll ich den Text von dir jetzt einfügen?
Danke und gruss
fritz

AW: Noch eine Frage
21.12.2007 10:01:00
Josef
Hallo Fritz,
einfach den Makronamen in der Konstanten angeben.

Public Const cRunWhat = "Refresh"


Nochwas: Do solltest unbedingt beim Schließen der Datei das Makro "StopTimer" ausführen, sonst wird sich die Datei wie von Zauberhand wieder öffnen.

Gruß Sepp

Anzeige
ok, versuche es, danke
21.12.2007 10:04:00
fritz

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige