1.4k Aufrufe
Gefragt in Tabellenkalkulation von Mitglied (926 Punkte)
Hallo Helfer,
die ersten beiden Makros funktionieren per Klick auf Ausführen, aber nicht per Tastenkomb. Das 3te geht gar nicht.
Sub Enter_Down()
' Tastenkombination: Strg+Umschalt+D
With Application
MoveAfterReturn = True
.MoveAfterReturnDirection = xlDown
End With
End Sub
Sub Enter_Right()
' Tastenkombination: Strg+Umschalt+R
With Application
MoveAfterReturn = True
.MoveAfterReturnDirection = xlToRight
End With
End Sub
Sub Enter_Nothing()
' Tastenkombination: Strg+Umschalt+N
With Application
MoveAfterReturn = False
End With
End Sub

Erstellt wurden diese 3 Makros an einem PC an dem unsinnige Einstellungen u.a. in Excel vorgenommen wurden, die der "Normale" Nutzer nicht verändern kann.
U.a. sind "Extras", "Optionen"und "Extras", "Makro", "Makros", "Optionen" gesperrt. Die Tastenkombinationen hatte ich beim Aufzeichnen von 3 Makros zugeordnet, deren aufgezeichneten Code ich anschließend gelöscht und durch die obigen Codes ersetzt habe.
Getestet habe ich die Makros im "Modul1" und in "Diese Arbeitsmappe". Wie kann ich es einstellen das die Makros tatsächlich per Tastenkombi laufen?
Was ist an Makro "Enter_Nothing" noch falsch?
mfg
Wolfgang

2 Antworten

0 Punkte
Beantwortet von m-o Profi (22.7k Punkte)
Hallo Wolfgang,

beim 3. Makro passiert nichts, da ein Punkt fehlt. So funktioniert es:

Sub Enter_Nothing()
' Tastenkombination: Strg+Umschalt+N
With Application
.MoveAfterReturn = False
End With
End Sub


Eine Tastenkombination kannst du per VBA so zuweisen:

Sub Tastenkombi()

Application.MacroOptions Macro:="Enter_Nothing", Description:="kein Return", ShortcutKey:="N"

End Sub


Gruß

M.O.
0 Punkte
Beantwortet von Mitglied (926 Punkte)
Hallo M.O.,
Vielen Dank.
Bei einem ersten Test hatte das folgende Makro funktioniert:

Sub Tastenkombi()
Application.MacroOptions Macro:="Enter_Right", Description:="Move Right", ShortcutKey:="R"
Application.MacroOptions Macro:="Enter_Down", Description:="Move Down", ShortcutKey:="D"
Application.MacroOptions Macro:="Enter_Nothing", Description:="Move False", ShortcutKey:="N"
End Sub
Aber die angesprochenen Makros funktionierten immer nur EINMAL. Ich habe eine Weile hin und her probiert und kopiert und planlos hin und her geklickt, plötzlich läufts wie gewünscht.
mfg
Wolfgang
...