Befehl unterbrechen

Question

Hallo Leute,

kann ich ein Befehl mit Millisekunden unterbrechen?, da bei dem Befehl Application.Wait Time + TimeSerial(0, 0, 1) nur Sekunden möglich sind.

Gruß
afetinci

Answer 1

Das geht mit Application.Wait nicht. Dazu müsstest du die API benutzen - also oben

Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

definieren und später im Code

Sleep 5 ' für 5 Millisekunden

aufrufen

Answer 2

vielen Dank für deine schnelle Antwort.

Ich kenn mich mit Makros nicht ganz so gut aus, deshalb meine Frage, ich habe eine Grafik die ich wie eine Animation bewegen lassen möchte, dafür habe ich folgendes eingefügt:

Private Sub CommandButton1_Click()
ActiveSheet.Shapes("Picture 28").Select
Selection.ShapeRange.IncrementLeft -5#
HIER WARTESCHLEIFE
Selection.ShapeRange.IncrementLeft -5#
Selection.ShapeRange.IncrementLeft -5#
Selection.ShapeRange.IncrementLeft -5#
Selection.ShapeRange.IncrementLeft -5#
Selection.ShapeRange.IncrementLeft -5#
End Sub

Nun möchte ich eben diese Warteschleife dazwischen immer einfügen.

Kannst du mir bitte nur noch sagen wie ich deinen Code hier mit einpflege. Danke nochmal.

Gruß

Answer 3

hi all ^^

da nicht jeder rechner gleichschnell ist,sollte eine zeitmessung erfolgen, worauf sich dann die warteschleife beziehen sollte

gruss nighty

Answer 4

In dem Visual-Basic-Editor fügst du ganz oben (also längst überhalb von

Private Sub CommandButton1_Click()

meine erste Zeile ein. Und statt HIER WARTESCHLEIFE einfach Sleep 5.

Answer 5

hi son_quatsch ^^

du kennst dich mit excel aus ,fein :-))

deine bisherigen antworten waren ja immer klasse :-)

hoffe du bist jetzt oefters hier :-))

*gibt erstmal ne runde muffins aus*

gruss nighty

Answer 6

hi son_quatsch,

Sorry das ich mich gestern nicht mehr melden konnte, hatte jedoch dann Feierabend.

Ich kriege bei dem Code folgende Fehlermeldung:

"Konstanten, Zeichenfolgen fester Länge, benutzerdefinierte Datenfelder und Declare- Anwendungen sind als Public- Elemente von Objektmodulen nicht zugelassen."

Gruß

Answer 7

Schreib Private statt Public.

Answer 8

Hat super funktioniert.

BESTEN DANK!!! :-))))))))))))))))))

Gruß
afetinci