Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 21:51:33
Idee für Grafik
26.04.2024 21:29:07
PQ zufällige Reihenfolge
26.04.2024 17:18:47
Große Datenmenge in komplexes Diagramm verpacken
26.04.2024 16:22:47
Aktualisierung Verknüpfung bei geschlossener Quelldatei
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
412to416
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
412to416
412to416
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Sleep

Sleep
11.04.2004 20:37:47
Rolf
Hallo Leute
wer kennt sich aus
über Sleep Funktion die
aus kernel32 abgerufen wird
die zwar wirklich eine Pause
einlegt lämmt aber alles!!
Frage gibt es nicht eine"lokale"
Funktion mit der man auch eine
Pause in excel einlegen kann.Ohne das auch
andere Programme leiden??
Grüsse
Rolf

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

Betreff
Datum
Anwender
Anzeige
AW: Sleep
11.04.2004 21:13:07
Matthias G
Hallo Rolf,
Verwende doch die Methode "OnTime":
hier ein Codebeispiel:
Public ok As Boolean

Sub Warte(sek As Integer)
ok = False
Application.OnTime Now + TimeSerial(0, 0, sek), "SetOK"
Do
DoEvents
Loop Until ok
End Sub



Sub SetOK()
On Error Resume Next
Application.OnTime earliesttime:=NextTime, Procedure:="SetOK", Schedule:=False
ok = True
On Error GoTo 0
End Sub

'Beispiel zum Aufrufen:

Sub test()
Warte 5
MsgBox "ok"
End Sub

Gruß Matthias
Anzeige
AW: Sleep
11.04.2004 22:25:54
Rolf
Hallo Matthias
danke für Deine Hilfe
das Problem gehört zu
meinem Beitrag "Zahlengenerator"
Falls DU in der Suche das wort
eingibst kannst DU mein ganzes
Problem sehen!!Villeicht kannst DU
Dein Ontime Vorschlag da einbauen?
Grüsse
Rolf
AW: Sleep
11.04.2004 23:09:04
Matthias G
Hallo Rolf,
nichts einfacher als das:
Public ok As Boolean

Sub Auf_Ab_Zähler()
Dim Zähler
Dim Zählrichtung
Zählrichtung = 1
Zähler = 100
Do While Cells(1, 2).Value = ""
If Zähler = 100 Then
Zählrichtung = 1
End If
If Zähler = 500 Then
Zählrichtung = -1
End If
Zähler = Zähler + Zählrichtung
Cells(1, 1).Value = Zähler
Warte 1
DoEvents
Loop
End Sub



Sub Warte(sek As Integer)
ok = False
Application.OnTime Now + TimeSerial(0, 0, sek), "SetOK"
Do
DoEvents
Loop Until ok
End Sub



Sub SetOK()
On Error Resume Next
Application.OnTime earliesttime:=NextTime, Procedure:="SetOK", Schedule:=False
ok = True
On Error GoTo 0
End Sub

Ich verstehe zwar nicht, was Du damit anfangen willt, aber das ist ja auch nicht das Problem...
Schönen Abend noch,
Matthias
Anzeige
AW: Sleep
11.04.2004 23:47:16
Rolf
Hallo Matthias
also ich bin Dir und allen
die mir geholfen haben mit
Zahlengenerator-
Josef und pino2
sehr dankbar!!
Ich selber bin nicht so weit!
Es lebe Forum!!
Grüsse
Rolf
AW: Danke für die Rückmeldung - o.T.
11.04.2004 23:49:00
Matthias G
-

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige