sendkeys verzögert den Ablauf
08.04.2017 01:08:15
Barbaraa
habe Probleme mit sendkeys.
Viele Texte sollen mit sendkeys in ein Word-Dokument geladen werden.
Das Makro läuft aber weiter, obwohl die Schleife mit sendkeys noch nicht fertig ist.
Lässt sich das irgendwie so steuern, dass das Makro erst dann weitermacht. bis das vorherige abgearbeitet ist?
Hier das Makro (es steht in Tabelle3):
Es wird mit einem Button gestartet. Ein geöffnetes Word-Dokument muss bereit stehen.
Option Explicit
Private Declare Sub keybd_event Lib "user32" ( _
ByVal bVk As Byte, _
ByVal bScan As Byte, _
ByVal dwFlags As Long, _
ByVal dwExtraInfo As Long)
Private Const VK_NUMLOCK = &H90
Private Const KEYEVENTF_KEYUP = &H2
Private Sub Text_erstellen_Click()
Dim Startzeit As Single 'Beginnzeit der Warteschleife
Dim Zelle As Range, Spalte As Range
If MsgBox("OK klicken und dann " & vbLf & _
"innerhalb der nächsten 5 Sekunden " & vbLf & _
"in ein bereitgestelltes Word-Dokument klicken.", vbOKCancel) = vbCancel Then _
Exit Sub
Startzeit = Timer: Do While Timer
und hier die Dateihttps://www.herber.de/bbs/user/112738.xlsm
Dass man das anders einfacher lösen kann, weiss ich. Aber mir geht es um die richtige Anwendung von sendkeys.
LG,
Barbara