Spaltenwechsel nach Enter
20.06.2003 14:01:38
Harry
Sub mach_was()
Application.OnKey "^{ENTER}", "erhoehen"
End Sub
Sub erhoehen()
On Error Resume Next
ActiveCell = ActiveCell + 0.5
End Sub
Soweit so gut. Jedoch muß ich nach der Ausführung nochmals die ENTER-Taste drücken, damit der Cursor in die nächste Spalte springt. Selbst der Befehl: SendKeys "{ENTER}", True
hilft nicht.
Wer kann mir helfen??
Gruß Harry
Anzeige