AW: Makro bei Mausklick nicht per Tastatur
07.03.2005 18:39:46
Matthias
Hallo André,
Excel unterscheidet da nicht zwischen Cursorbewegung und Mausklick.
Das Selection_Change()-Ereignis kann aber nutzen, wenn man die Cursorbelegung gewissermaßen "umbaut":
Sub UmstellungAn()
Application.OnKey "{LEFT}", "GoLeft"
Application.OnKey "{RIGHT}", "GoRight"
Application.OnKey "{UP}", "GoUp"
Application.OnKey "{DOWN}", "GoDown"
End Sub
Sub UmstellungAus()
Application.OnKey "{LEFT}"
Application.OnKey "{RIGHT}"
Application.OnKey "{UP}"
Application.OnKey "{DOWN}"
End Sub
Sub GoLeft()
On Error Resume Next
Application.EnableEvents = False
ActiveCell.Offset(0, -1).Select
Application.EnableEvents = True
End Sub
Sub GoRight()
On Error Resume Next
Application.EnableEvents = False
ActiveCell.Offset(0, 1).Select
Application.EnableEvents = True
End Sub
Sub GoUp()
On Error Resume Next
Application.EnableEvents = False
ActiveCell.Offset(-1, 0).Select
Application.EnableEvents = True
End Sub
Sub GoDown()
On Error Resume Next
Application.EnableEvents = False
ActiveCell.Offset(1, 0).Select
Application.EnableEvents = True
End Sub
Wobei hier immer noch die Varianten mit Shift sowie die ganzen anderen Bewegungstasten wie Pos1, Ende usw. fehlen.
Wenn du Lust hast, kannst du die ja alle anders belegen... mir wäre das allerdings zu aufwendig, ich würde den Doppel- oder Rechtsklick nehmen.
Gruß Matthias