Probier doch mal die Api von Harald, die funktioniert prima und Sendkeys ist eh fehlerhaft.

http://www.aboutvb.de/khw/artikel/khwsendkeys.htm

Gruß Marie

Hallo Marie
besten Dank, dem Code habe ich eingebaut.
keybd_event vbKeyTab, 0, 0, 0
Natürlich kommt die Meldung. Sub oder Funktion nicht definiert.
Wo gehört dieser Code hin? Modul, oder? Ist ev.noch etwas auzutauschen?
Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, _
ByVal bScan As Byte, ByVal dwFlags As Long, _
ByVal dwExtraInfo As Long)

gruß sundancer

Klar musst Du die Deklaration dazuschreiben, mit Private dorthin wo auch die Funktion ist, oder aber Du schreibst statt Private Public davor. Hier mal ein Beispiel aus meinem Programm, das funzt:

Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, _
 ByVal bScan As Byte, ByVal dwFlags As Long, _
 ByVal dwExtraInfo As Long)

Public Function fkt_keyEnter()

Const KEYEVENTF_KEYUP = &H2

On Error GoTo fkt_keyEnter_Err

' Änderung  17.07.2001
' SendKeys "{ENTER}" ersetzt durch API von Harald M.Genauck aboutvb.de
' http://www.aboutvb.de/khw/artikel/khwsendkeys.htm

keybd_event vbKeyReturn, 0, 0, 0
keybd_event vbKeyReturn, 0, KEYEVENTF_KEYUP, 0
       
fkt_keyEnter_Exit:
    Exit Function
fkt_keyEnter_Err:
    msgbox Error$, vbCritical, "Fehler in fkt_keyEnter"
    Resume fkt_keyEnter_Exit
End Function

Gruß Marie

Hallo Marie
Klappt auch einwandfrei bei "Vista"
besten Dank

gruß sundancer