Excel Makro

kueppers · 03.07.2007

Hallo zusammen,
kann mir einer von euch vielleicht sagen wie ich es hinbekomme das ein Makro automatisch alle 3min. ausgeführt wird.
danke schonmal

Matjes · 03.07.2007

Hallo kueppers,

mit folgendem Makros kannst du das realisieren. Den Code einfach in einer neuen Exceldatei in ein eigenes Modul kopieren. Die Excel-Datei speichern.

Mit IchWillAll3MinAusgefuehrtWerden_Anschalten() kannst du den 3-minütlichen Aufruf von IchWillAll3MinAusgefuehrtWerden() anstossen, mit IchWillAll3MinAusgefuehrtWerden_Abschalten() wieder abschalten. Ob das Makro IchWillAll3MinAusgefuehrtWerden() ausgeführt wird, kannst Du in der Statuszeile von Excel betrachten. Dort wird der Aufrufzeitpunkt von IchWillAll3MinAusgefuehrtWerden() protokolliert. Beim Abschalten wird die Statuszeile wieder gelöscht.

Gruß Matjes

Code:

Option Explicit

Private bAbschalten As Boolean

'****************************************************
Sub IchWillAll3MinAusgefuehrtWerden_Anschalten()
 bAbschalten = False
 Call IchWillAll3MinAusgefuehrtWerden
End Sub

'****************************************************
Sub IchWillAll3MinAusgefuehrtWerden_Abschalten()
 bAbschalten = True
End Sub

'****************************************************
Sub IchWillAll3MinAusgefuehrtWerden()
->Ausgabe der Aufrufzeit
 Application.StatusBar = lezte Aufrufzeit:  &amp; Format(Now(), dd.mm.yyyy hh:nn:ss)
 
 If bAbschalten Then
  Application.StatusBar = 
 Else
 ->Ausgabe der Aufrufzeit
  Application.StatusBar = lezte Aufrufzeit:  &amp; Format(Now(), dd.mm.yyyy hh:nn:ss)
 ->Aufruf: Procedure nach 3 Min wieder starten
  Application.OnTime Now() + TimeValue(00:03:00), IchWillAll3MinAusgefuehrtWerden
 End If
 
End Sub

kueppers · 03.07.2007

Hallo Matjes,
super das ist genau das was ich gesucht habe. mml
danke für die schnelle Antwort. O0
Gruß Küppers

Excel Makro

kueppers

Matjes

kueppers

Excel Makro

ANGEBOTE & SPONSOREN

Neueste Themen

Statistik des Forums