(In der Hilfe wird beschrieben, wie man STRG/SHIFT/ALT angibt.)
Achtung - manchmal lohnt sich ein Application Wait für 1 Sekunde, wenn DU mehrere Sachen mit SENDKEYS machen möchtest und Verzögerungen einbauen musst
Sowas kannst du nicht aufzeichnen, du musst es von Hand programmieren.
z.B.
SendKeys "%{TAB}"
endspricht Alt+Tab
SendKeys mal markieren und F1 drücken. Aber für 900 Mio. Einträge läuft das Makro einen Monat lang und der Prozessor explodiert :-)
Gruss
Chris
OK - lass ich mit mir reden
Application.Wait Now + TimeValue("00:00:01")
= 1 Sekunde Schlaf
Ein Zwischenraum zwischen den "".
um welches Programm handelt es sich denn? Wenn das eine DLL vorhandenn ist, kann man mit der vielleicht besser etwas anfangen.
Gruß
Micha
Sub Makro4()
'
' Makro4 Makro
' Makro am 15.05.2003 von Rooki aufgezeichnet
'
'
SendKeys "%{TAB}"
SendKeys "100000000-XXX4"
SendKeys "{TAB}"
SendKeys "{TAB}"
SendKeys "{TAB}"
SendKeys " ", True
SendKeys " ", True
Application.Wait Now + TimeValue("00:00:01")
End Sub
Jetzt soll sich SendKeys "100000000-XXX4" auf SendKeys "100000001-XXX4" ändern und dann wieder von vorne, bis SendKeys "999999999-XXX4" ???
Sub Makro4()
'
' Makro4 Makro
' Makro am 15.05.2003 von Rooki aufgezeichnet
'
for i = 100000000 to 999999999
'
SendKeys "%{TAB}"
SendKeys i & "-XXX4"
SendKeys "{TAB}"
SendKeys "{TAB}"
SendKeys "{TAB}"
SendKeys " ", True
SendKeys " ", True
Application.Wait Now + TimeValue("00:00:01")
next i
End Sub
Das sind 899999999 Sekunden ca. 28 Jahren!!
Nimm aus der Schleife raus
Und mach einmal vor dem FOR Befehl
Wer ist dieser Gott, von dem Du redest?
(Nehme ich zurück)
SendKeys "%{TAB}"
for i = 100000000 to 999999999
'
SendKeys i & "-XXX4"
SendKeys "{TAB}"
SendKeys "{TAB}"
SendKeys "{TAB}"
SendKeys " ", True
SendKeys " ", True
Application.Wait Now + TimeValue("00:00:01")
next i
End Sub