Hallo Hans,

schau DIr mal auf meiner HP in der Rubrik Beispieldateien und dort dann in dem Beispiel 99 nach. Dort stelle ich dazu eine Beispieldatei zur Verfügung, in der ebenfalls ein Objekt von links nach rechts bewegt wird. Die Geschwindigkeit stellt man im Makro in der Zeile

Sleep(500)

ein. Das bewirkt, dass das Makro an der Stelle für 500 Milisekunden angehalten wird. Ansonsten Schau Dir in der Excelhilfe die Funktion

Application.Wait 

an.

Bei Fragen melde Dich.

MfG,
Oliver
_{Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du}
^{ein Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.}

Hallo Coros

Werde es ausprobieren, melde mich wieder!


Besten Dank für Deine schnelle Antwort!!

Mfg
Hans

Hallo
Habe es mit Application Wait versucht wie im Beispiel


Sub neu()
ActiveDocument.Shapes("Rectangle 2").Select
Selection.ShapeRange.IncrementLeft 111.75
Application.Wait Time + TimeSerial(0, 0, 5)
ActiveDocument.Shapes("Rectangle 2").Select
Selection.ShapeRange.IncrementLeft 111.75
End Sub


Ich bekomme immer eine Fehlermeldung
Metode oder Datenobjekt nicht gefunden und Wait wird blau hinterlegt.


MFG
Hans

Hallo Hans,

ersetze

ActiveDocument

gegen

ActiveSheet

denn ActiveDocument gibt es in Excel nicht.

MfG,
Oliver
_{Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du}
^{ein Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.}

Hi

Fehler: ActiveDocument behoben, neues Problem

Ich hatte gedacht das die Zeit zwischen den einzelnen schritten im Makro gewartet wird.

Es sieht aber so aus das nur vor dem ausführen des Makros gewartet wird.

Kann man auch zwischen den einzelnen schritten warten?

MFG
Hans

Hallo Hans,

die Wartezeit geschieht an der Stelle, an der die ".Wait-Funktion" eingearbeitet wurde, also bei Deinem Makro in der Mitte und nicht am Anfang des Makros. Baue Dir mal 2 MessageBoxen ein, dann kannst Du das zum Prüfen kontrollieren. Das Makro zum Testen müsste dann wie folgt aussehen mit den MessageBoxen:

Sub neu()
ActiveSheet.Shapes("Rectangle 2").IncrementLeft 111.75
MsgBox "vor Wait"
Application.Wait Time + TimeSerial(0, 0, 5)
ActiveSheet.Shapes("Rectangle 2").IncrementLeft 111.75
MsgBox "hinter Wait"
End Sub

MfG,
Oliver
_{Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du}
^{ein Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.}

Guten Abend

Danke

Habe es mit Deiner Hilfe hin bekommen :-)


MFG

Hans

Hallo Hans,

gern geschehn. Danke auch für die Rückmeldung.

MfG,
Oliver
_{Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du}
^{ein Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.}