Endlosschleife bei Tausch Enter- mit Tabtaste
15.11.2006 17:28:37
Reinhard
Hallo Wissende,
nach Durchführung der Sub Ein() und betätigen der Enter -oder Tabtaste kommt jeweils eine Endlosschleife.
Wie kann ich die verhindern und wie kann ich die Funktionalitäten beider Tasten tauschen?
(Code auch in XL97 getestet, deshlab Return anstatt Enter, dort passiert das Gleiche)
Option Explicit
Public Nicht As Boolean
Sub Ein()
Application.OnKey "{Return}", "Ein1"
Application.OnKey "{TAB}", "Ein2"
End Sub
Sub Aus()
Application.OnKey "{Return}"
Application.OnKey "{TAB}"
End Sub
Sub Ein1()
If Nicht = True Then Exit Sub
Nicht = True
Application.EnableEvents = False
Application.SendKeys "{TAB}"
Application.EnableEvents = True
Nicht = False
End Sub
Sub Ein2()
If Nicht = True Then Exit Sub
Nicht = True
Application.EnableEvents = False
Application.SendKeys "{Return}"
Application.EnableEvents = True
Nicht = False
End Sub
Danke ^ Gruß
Reinhard