SENDKEYS Frage
20.12.2018 15:30:46
Anna
ich wollte Fragen, ob man im Excel erkennen kann, wenn ein externes Programm eine Fehlermeldung anzeigt und diese dann automatisch schließen kann?
Hier ist mein Code:
Sub Bsp()
Dim Zelle As Range
Call MausLinks_Klick
For Each Zelle In Intersect(Columns(2), ActiveSheet.UsedRange)
'Code
zahl_a = Zelle.Value
Call Clipboard.Clipboard(zahl_a)
Application.wait (Now + TimeValue("00:00:01"))
SendKeys "^{v}", True
SendKeys "{DOWN}", True
Application.wait (Now + TimeValue("00:00:01"))
Next
End Sub
Anzeige
