sendKeys
19.05.2016 17:21:34
Kopenhagen
Private Sub CommandButton4_Click()
Unload Me
ActiveSheet.Cells(1, 1).Select
Application.SendKeys ("{enter}")
End Sub
Hallo
habe ein Anliegen
mit den o.g. Code habe ich erreicht, dass durch markieren der ersten Zelle und das Simulieren von Enter die Berechnung in der Tabelle 1 durchgeführt wird. Aber es schaltet sich mein Nummernblock ab. Wie kann ich das umgehen.
In meiner 1. Variante hatte ich über die MsgBox eine Aufforderung "in die Tabelle klicken" eingearbeitet. Es sollte aber automatisch durchgeführt werden.
Ich hoffe es gibt eine Alternative.
Tschüss
Anzeige