Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 08:01:34
Textbox Inhalt prüfen und Code abbrechen
24.04.2024 06:38:45
Kumulierte Daten für Intervalllaufeinheiten
24.04.2024 04:37:43
Mit Word erstellte PDF als Anhang an E-Mail anhängen
24.04.2024 00:20:14
Bestimmte Spalten als xls exportieren per Makro
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
136to140
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
136to140
136to140
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Funktion Application onTime

Funktion Application onTime
15.07.2002 17:52:17
Baba
Hallo

Ich möchte täglich zu einer bestimmten Uhrzeit den wert einer Zelle auslesen und in einer anderen Zelle Speichern.

ZB: [456546] Zelle A1 die ausgelesen werden soll

22:00 [=A1]
23:00 [=A1]
00:00 [=A1]

usw.
der wert in der Zelle ändert sich ca. alle 60 sekunden, und ich möchte zu jeder vollen Stunde wissen, wie dieser wert war.
Das ganze fängt Täglich wieder bei Null an.
Ich habe gehört, das es mit Application onTime gehe soll.
Leider habe ich keine Ahnung von VBA und würde mich freuen wenn mir jemand eine kleine Beispiel Tabelle schicken könnte.

Vielen Dank
Gruß Baba E-Mail : Babalulu@t-online.de

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Funktion Application onTime
15.07.2002 19:23:01
Peter
Hallo Baba,

versuchs mal mit folgendem Code (mit heißer Nadel gestrickt und noch nicht ganz ausgetestet). Muß einmal aufgerufen werden und ruft sich dann stündlich selber auf:

Sub ZeitSchleife()
Dim NächsteZeit As Date, Quelle As Range, T2 As Object
Static Zeile As Integer
Set T2 = Sheets("Tabelle2").Cells
Set Quelle = Sheets("Tabelle1").Cells(1, 1)
If Zeile = 0 Then
Sheets("Tabelle2").Columns("A:C").Clear
Zeile = 2
T2(1, 1) = "Datum"
T2(1, 2) = "Zeit"
T2(1, 3) = "Wert"
Else
Zeile = Zeile + 1
End If
T2(Zeile, 1) = Date
T2(Zeile, 2) = Time
T2(Zeile, 3) = Quelle
NächsteZeit = TimeSerial(Hour(Now) + 1, 0, 0)
Application.OnTime NächsteZeit, "ZeitSchleife"
End Sub

Anzeige
Re: Funktion Application onTime
15.07.2002 20:26:33
Peter
Hallo Baba,

ich muss etwas nachbessern. Die Zuweisung für "NächsteZeit" ist wahrscheinlich falsch (habe leider keine Zeit in einem Test eine Stunde zu warten).
Versuch es mit NächsteZeit = Now + TimeSerial(1,0,0). Wenn das zur vollen Stunde erfolgen soll, musst den 1. Aufruf auch zur vollen Stunde vornehmen. Wenn mir noch was besseres einfällt, bessere ich nach.
mfg Peter

Re: Funktion Application onTime
16.07.2002 07:40:28
Baba
Hallo Peter

Nun, ich werde es mal versuchen. PS: Du brauchst nicht bis zur vollen Stunde zu warten, um einen Test durch zu führen.
Setze die Systemzeit einfach auf z.B 13:59 Uhr und warte eine minute.

Gruß baba

Anzeige

54 Forumthreads zu ähnlichen Themen

Application.OnTime - werktags?
Susanne

Hallo,
ok, mit Application.OnTime #12:06:00 PM#, "Makro" startet das Makro um 12:06 Uhr. Soweit, so gut. Was aber muß ich hinzufügen, wenn es nur Mo-Fr starten soll und nicht am Wochenende? Gibt es dafür eine Lösung?
danke!
Susanne
01.08.2009 01:25:43
Thread-ID: 1092845
5 Beiträge
Anzeige
Application.OnTime läuft auch bei anderen Dateien
Roland

Hallo,
Durch eine Steuerelement angestupst wird meine Datei alle 15 Minuten gespeichert.
Das Modul sieht so aus:
Sub Makro1() On Error Resume Next Application.OnTime EarliestTime:=datA, Procedure:="Makro2", Schedule:=False datA = Now + CDate("0:15:00") ' Hi...
06.11.2009 02:22:33
Thread-ID: 1114851
4 Beiträge
Application.OnTime aus UserForm heraus nutzen
Daniel

Hallo Forum,
ich habe eine Excel-Tabelle, die beim Starten direkt eine UserForm (Show Modal = True) startet. Diese Tabelle soll rund um die Uhr geöffnet sein. Zu 3 verschiedenen Uhrzeiten möchte ich aus der UserForm heraus eine Prozedur starten. Ist das möglich? Wenn ja, wie?
Ich hoffe,...
06.12.2010 22:20:16
Thread-ID: 1190325
8 Beiträge
Anzeige
Application.OnTime gibt beim abbrechen Error
Pepi

Hallo Zusammen
Ich benutze folgende Funktion um eine Datei periodisch zu speichern
Application.OnTime Now + TimeValue("00:15:00"), "SU_Periodisch_Speichern"
will ich aber diesen Prozess unterbrechen mit:
Application.OnTime EarliestTime:=TimeValue("17:00:00"), Procedure:="SU_Pe...
20.12.2013 14:24:44
Thread-ID: 1343227
7 Beiträge
Wie kann ich mehrere Application.OnTime stoppen?
Rene
Hallo,
ich habe ein kleines Problem mit einigen Application.OnTime ´s.
Ich habe ein Userform in den ich folgende Daten eintrage.
1 Checkbox ob aktiv oder nicht
1 Textfeld für Dateiname
3 Textfelder für die Startzeit (Format hh:mm:ss)
3 Felder wie lange die Datei ausgeführt w...
26.07.2014 07:21:10
Thread-ID: 1372418
5 Beiträge
Countdown in Zelle von Application.wait/ontime
Application.wait/ontime

Hallo,
kleine Frage zu Application.wait bzw. Application.ontime
Gibt es eine Möglichkeit das man die Zeiten als Countdown herunterzählen lässt
und dies visuell in einer Zelle darstellen kann?
theoretisch soll, immer angezeigt werden, wann die nächste
präsentation anfängt.......
26.07.2014 21:56:18
Thread-ID: 1372500
3 Beiträge
Verzögerung in Application.OnTime ???
Spenski

Hi
Ich habe 5 tabellenblätter . vom tabellenblatt 1 starte ich ein makro , das aktiviert tabelleblatt2 , nach einiger zeit tabellenblatt 3 usw.
Soll als Anzeigetafel dienen.
Was mich wundert ist das der code nicht den ablauf nimmt wie er soll ( 2,3,4,5,2,3,4,5,2usw.) sondern immer d...
11.08.2014 22:21:26
Thread-ID: 1375789
7 Beiträge
application.ontime x mal ausführen
Andreas
Hallo,
ich hatte folgendes versucht und keine Lösung gefunden.
Also ich möchte eigentlich ein Makro 159 mal ausführen und zwar soll es alle 30 Sekunden starten.
Sub CommandButton3_Click() Application.OnTime Now + TimeValue("00:00:30"), "CommandButton3_Click End Sub
Ich denke so wi...
08.04.2015 17:46:40
Thread-ID: 1419710
8 Beiträge

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
4
4
3
7
4
6
4
2
6
7
3
1
1
2
9
11
1
6
2
6
4
5
1
1
1