Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
288to292
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
288to292
288to292
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Halbstündlich per Macro !

Halbstündlich per Macro !
04.08.2003 11:08:47
thomas scher
Hallo Forum Experten !
Ich versuche Vba in einer Routine zu sagen, das er alle halbe Stunde ein Datei die Minütlich gefüllt wird gespeichert werden soll.Alles klappt bis auf die Sache das er immer um 00 oder 30 die datei speichern soll.
Also habe ich mir gedacht ich versuche es so aber es klappt nicht .. Könnt ihr mir helfen ???

Sub halb()
Dim a As Variant
a = "00"
If Time = ("hh" & ":" & a & ":" & "ss") Then
MsgBox " geht doch"
End If
End Sub

Es geht auch nicht darum es eine halbe Stunde nach Start zu machen sondern wirklich immer um zb.11:30 und dann 12:00 Uhr und so weiter...
Vielen dank im vorraus
Der
Thomas

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

Betreff
Datum
Anwender
Anzeige
AW: Halbstündlich per Macro !
04.08.2003 11:16:58
Knut
Schau dir mal Application.OnTime an.
Knut

AW: Halbstündlich per Macro !
04.08.2003 11:28:48
thomas scher
Hallo Knut ,
ich habe es jetzt so probiert doch es klppt immer noch nicht !!

Sub halb()
Dim a As Integer
a = "27"
Application.OnTime TimeValue("11:" & a), "start"
End Sub


Sub start()
MsgBox " Geht doch"
End Sub

gruss
thomas

AW: Halbstündlich per Macro !
04.08.2003 12:07:25
Knut
Hier mal ein Auszug aus der Hilfe:
OnTime-Methode
Bewirkt, dass eine Prozedur zu einem bestimmten Zeitpunkt in der Zukunft (entweder zu einer bestimmten Zeit oder nachdem eine bestimmte Zeitspanne vergangen ist) ausgeführt wird.
Ausdruck.OnTime(EarliestTime, Procedure, LatestTime, Schedule)
Ausdruck Erforderlich. Ein Ausdruck, der ein Application-Objekt zurückgibt.
EarliestTime Erforderlicher Variant-Wert. Die Zeit, zu der diese Prozedur ausgeführt werden soll.
Procedure Erforderlicher String-Wert. Der Name der auszuführenden Prozedur.
LatestTime Optionaler Variant-Wert. Der späteste Zeitpunkt zum Ausführen der Prozedur. Wenn beispielsweise LatestTime auf EarliestTime + 30 festgelegt und Microsoft Excel im Zusammenhang mit EarliestTime nicht im Ready, Copy, Cut oder Find-Modus ist, da eine andere Prozedur ausgeführt wird, wartet Microsoft Excel 30 Sekunden auf das Beenden der ersten Prozedur. Wenn Microsoft Excel innerhalb von 30 Sekunden nicht im Ready-Modus ist, wird die Prozedur nicht ausgeführt. Wenn dieses Argument ausgelassen wird, wartet Microsoft Excel, bis die Prozedur ausgeführt werden kann.
Schedule Optionaler Variant-Wert. True führt eine neue OnTime-Prozedur aus. False löscht eine vorher eingestellte Prozedur. Der Standardwert ist True.
Anmerkung
Verwenden Sie Now + TimeValue(time) zum Ausführen eines Programms o.ä. nach einer bestimmten Zeit (von jetzt an gezählt). Verwenden Sie TimeValue(time) zum Ausführen eines Programms o.ä. für eine bestimmte Zeit.
Beispiel
In diesem Beispiel wird "my_Procedure" nach 15 Sekunden ausgeführt.
Application.OnTime Now + TimeValue("00:00:15"), "my_Procedure"
Im folgenden Beispiel wird "my_Procedure" um 17 Uhr ausgeführt.
Application.OnTime TimeValue("17:00:00"), "my_Procedure"
In diesem Beispiel wird die OnTime-Einstellung aus dem vorherigen Beispiel gelöscht.
Application.OnTime EarliestTime:=TimeValue("17:00:00"), _
Procedure:="my_Procedure", Schedule:=False

Anzeige
AW: Halbstündlich per Macro !
04.08.2003 12:18:33
thomas scher
Hallo Knut,
das habe ich schon verstanden ! Doch ich wollte nicht alle halben Stunden schreiben. Sondern suche für die Stunde einen platzhalter * oder ? oder so. Ich will nicht immer schreiebn 12:30 oder 13:00 ich will ihm sagen um "*:30 " oder "*:00"...
So müste nach deiner Beschreibung bzw. der aus der Hilfe datei mein Macro ja klappen tut es aber nicht !!
Vielen dank
der
thomas

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige