Excel - Application.SendKeys wartet nicht!
02.01.2005 00:13:02
Niels
Ich habe drei Arbeitsmappen offen: Mappe1, Mappe2, Mappe3
Mappe1 und Mappe2 enthalten keine Daten.
In Mappe3 befindet sich folgenes VBA-Programm:
Sub Test()
Windows("Mappe1").Activate
Range("C3").Activate
Application.SendKeys "1" + "{RETURN}", True
Windows("Mappe2").Activate
End Sub
Das Programm soll zu Mappe1 wechseln, Zelle C3 auswählen und mit Hilfe des Befehles Application.Sendkeys das Zeichen "1" in die Zelle in dieser Mappe eintragen. Anschließend soll das Programm Zur Mappe2 wechseln.
Leider wartet Excel nicht bis die 1 in Mappe1 eingetragen ist, sondern trägt die
1 in Mappe2 ein.
Wer weiß wie ich das Problem bei Verwendund des SendKeys-Befehles lösen kann.
Ich bin kein VBA-Anfänger!!! Mir ist klar das ich die 1 in die Zelle C3 auch einfacher z.B. mit Range("C3") = "1" eintragen kann. Dies ist jedoch ein sehr vereinfachtes Programm, um ein Problem zu zeigen, daß ich in gleicher Form in einem komplexeren Programm habe.
Hoffentlich kann mir jemand helfen. Ich habe schon Stunden nach einer Lösung gesucht und keine gefunden!!!