Tastenfolge als Makro

[Litschi]

Hallo Günther,

Code:

Sub TKverzerren()
   SendKeys "^a"
   SendKeys "^x"
   SendKeys "^v"
   SendKeys "%v"
End Sub

Gruß

Koter

Eventuell kann man nach SendKeys eine kurze Pause einbinden für die Stabilität.

Code:

Sub TKverzerren()
   SendKeys "^a"
   KurzePause
   SendKeys "^x"
   KurzePause
   SendKeys "^v"
   KurzePause
   SendKeys "%v"
End Sub

Private Sub KurzePause()
    Dim PauseTime As Double
   PauseTime = Timer + 0.4
   Do While Timer < PauseTime
       DoEvents
   Loop
End Sub