Send Keys funktioniert nur teilweise
08.01.2016 19:58:21
Andreas
ich habe eine Datei mit 3 Sheets, aus welcher der Sheet Daten einen Datenabgleich mit dem Internet durchführt. Es könnte aber auch über die ganze Arbeitsmappe eine Aktualisierung durchgeführt werden, wenn es das ganze vereinfacht. Dies muss ich aktuell immer mit STRG+ALT+F5 aktualisieren, was auch klappt. Jetzt habe ich gesehen, dass man mit der Send Key Funktion das auch erledigen könnte. Ich habe dann übers www auch etwas gefunden, wo ich dachte das sollte gehen, auch wenn noch etwas als Kleinigkeit fehlt, der Timer.
~
Sub Test()
Sheets("Daten").Activate
Application.SendKeys "^%{F5}" + "{Enter}"
End Sub
~Wenn ich das Makro ausführe, dann springt er in den Sheet, aber er führt dann keine Aktualisierung durch. Die Keys sind laut https://www.herber.de/mailing/vb/html/vastmsendkeys.htm
passend. Aber es geht nicht :-(. Was ist falsch und wie kann ich einen Timer dazubauen, der dann so alle 5 Minuten das Makro ausführt? Vielen Dank vorab für eure Ideen und Hilfe.
mfG
Andreas