onkey
29.12.2003 20:23:22
felix
habe folgendes Problem:
in spalte 6 ("F") möchte ich alle tasten ausschalten bis auf "a, f, o, r".
(bei allen anderen Tasten soll sich eine Msgbox öffnen)
spalte = target.column
If spalte = 6 then
Application.OnKey "alle Tasten" ,"BoxÖffnen"
Application.OnKey "a", "aktien"
Application.OnKey "f", "fonds"
Application.OnKey "o", "optionen"
Application.OnKey "r", "renten"
else
Application.OnKey "alle Tasten"
(alle Tasten haben wieder ihre normale funktion)
end if
Kann mir jemand den Code verraten? Habe dazu nichts passendes gefunden.
Vielen Dank
Gruß
Felix