Enter in Zelle XY löst Code aus
09.08.2023 10:40:25
Martin
irgendwas mache ich falsch :( habe nun schon eine ganze Weile mit google versucht eine Lösung zu finden, aber egal welche Lösung, es passiert nicht.
Habe ein Modul erstellt und dort folgenden Code reinkopiert.
Auch wenn ich den Code in die Arbeitsmappen und Tabelle einfüge, es passiert einfach nichts beim Enter drücken.
In einem alten Post hier im Forum ist auf eine bessere Lösung als "OnKey" verwiesen worden, leider funktioniert die Weiterleitung zu dem Post hier nicht mehr.....
Vielen lieben Dank für Aufklärung irgendwas muss ich doch komplett übersehen?!
Sub Zellencheck()
If ActiveCell.Address = "$A$1" Then
MsgBox "A1"
Else
MsgBox "andere"
End If
End Sub
Sub Entersuche()
Application.OnKey "{RETURN}", "Zellencheck"
End Sub