ich hab das wunderschöne untenstehende Script hier bei Herber gefunden, damit ich
die Linke und rechte Maustaste abfragen kann. Leider erkennt er die Maustaste, sobald
das Skript gestartet ist, nur, wenn innerhalb VBA gedrückt wurde. Nicht im ExcelSheet.
Wenn im Excel-Sheet linke Maustaste gedrückt, passiert goar nix. Kann mir da jemand
helfen?
Herzlichen Dank,
Born
Zweck: Ich habe ein kleines Spielchen programmiert und möchte jetzt während der
Prozedur die Linke und Rechte Maustaste abfragen. Also so:
Sub MeinSpiel
gehe ins Sheet("Play")
Do (Loop) WarteAufKey
warte ab, bis linke oder rechte Maustaste gedrückt wurde
wenn linke Maustaste: Stop Loop, Tue X
wenn rechte Maustaste: Stop Loop, Tue Y
Loop Ende
End Sub
DIESE WaitForKey-Prozedur habe ich bei Herber gefunden:
Private Declare
Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
Sub WaitForKey()
Dim strKey As String
strKey = ""
Sheets("Main").Activate
Do
If Abs(GetKeyState(1)