Office: VBA Sendkeys + Application.Wait

Guten Abend zusammen an Halloween *G* *tongue.gif*

ich habe folgendes Problem: Auf der Arbeit habe ich ein Makro geschrieben, welches mehrere "Sheets" nacheinander abruft und dann dort verschiedene Sendkeys reinschickt.

Nur mein Problem besteht jetzt darin, dass das Makro alle Sheets nacheinander abruft und zum Schluß (so habe ich jedenfalls das Gefühl), dass alle Sendkeys hintereinander gesendet werden... *frown.gif*

Ich habe es schon mit Application.Wait befehlen versucht, es funktioniert aber irgendwie nicht richtig... Kann mir jemand weiterhelfen?? So sieht der Code aus:

Code:

Kann mir jemand weiterhelfen?? Das wäre super und würde mich um einiges weiterbringen! Danke *Smilie

Viele Grüße
Tom

PS: Das Makro wird ausgeführt, wenn ich auf einen Button klicke... es soll den Drucker "pro Sheet" in Excel 2000 einstellen... (z.B Fach 1 auswählen etc., das funktioniert super über die Sendkeys, wenn ich das mit 3 Buttons mache! Mit einem Button klappt es nicht! siehe oben *mad.gif* )

:)

 

Moin, Webstyler,

kann diese Einstellung nicht als eigener Drucker angelegt und so angesprochen werden? Ein Wechsel des Druckers erscheint mir weitaus einfacher als ein unzuverlässiges SendKeys...

 

Moin jinx,

nein, das Problem auf der Arbeit ist, das kein eigener Drucker angelegt werden kann. Ist vom Administrator her geblockt. Wir sind eine große Firma und es wird für unsere "kleine Dienststelle" keine Außnahme gemacht :-( Es muss auf jedenfall mit Sendkeys erfolgen... :-(

Nur: Die Sendkeys müssen nacheinander abgearbeitet werden, und das geht mit dem oben genannten Code leider nicht :-(

Weiß jemand weiter? *Smilie

 

Hast du die Sendkeys schon mal in einen extra Sub gepackt und es im Makro über "Call Sendkeys" probiert?

Manche Makros scheinen manche Dinge nur komplett abzuarbeiten, wenn sie in einen extra Sub, abgearbeitet werden. Ich hatte das Problem schon mal beim erstellen von Textdokumenten und es mit auslagern behoben.

 

Meinst du ein extra-Modul ? und dann soll ich die Module nacheinander abarbeiten? hmm... ich probiere es mal aus... hat jemand vielleicht eine Idee, wie ich das noch anders lösen könnte?

Nach dem Motto: Erst den Sendkey, dann die nächste Sheet auswählen, Sendkey, nächste Sheet usw.. mein Code (siehe oben) macht anstattdessen: SHEET, SHEET, SHEET und zum Schluß alle Sendkeys hintereinander... :-(

 

Das mit den Sendkeys funktioniert bei mir auch nur so wie du schreibst, selbst wenn jedes Blatt einen eigenen Sub hat, der von einem Sub aus aufgerufen wird. Vielleicht ginge es über ein ObjectDrucker (weis nicht wie das heißen könnte) und einer "Do While ObjectDrucker = Active" Schleife

Bei mir hat jetzt aber was ganz anderes funktioniert:

Code:

 

Hallo,

danke für die Antwort aber! Hierbei wird nur gedruckt! Den Einbau der Sendkeys kann ich hier leider nicht erkennen...

Hat jemand einen Lösungsvorschlag? Ich weiß einfach nicht mehr weiter *frown.gif*

viele Grüße
Tom

 

Gibt es vielleicht einen Timer Code?? Dass ich dem Makro sagen kann: Button 1 ausführen... (inkl. Code), Button 2 erst nach 5 Sekunden ausführen, danach Button 3 in weiteren 5 Sekunden ausführen...

Eine Art Timer... Also ich möchte den Code nicht anhalten! Er soll fortgeführt werden! Aber die einzelnen Buttons sollen erst nach 5 Sekunden, 10 Sekunden, 15 Sekunden etc. ausgeführt werden...

Gibt es sowas?? Danke für die Antwort

 

Hallo Webstyler,

eventuell hilft da schon ein DoEvents hinter jeder SendKeys-Anweisung.

Gruß Ingolf

 

Hallo Ingolf *Smilie

und was bewirkt DoEvents ? *Smilie Danke für deine Antwort im Voraus *Smilie

Gruß
Tom

 

Hallo Webstyler,

mit DoEvents gibt VBA die Steuerung des Computers an das Betriebssystem ab. Das Betriebssystem arbeitet daraufhin die zwischenzeitlich angefallenen Aufgaben ab - unter anderem die mit SendKeys zuvor gefüllte Tastatureingabeliste. Anschließend geht die Steuerung wieder an VBA zurück.

Gruß Ingolf

 

Hallo Ingolf!

Habe deinen Tipp heute ausprobiert! Es hat super funktioniert! Genau daran hat es gelegen!! DANKE!!

Gruß
Tom *Smilie