Hallo,
noch mal zum Verständnis: Wenn du die Enter-Taste mit OnKey umdefinierst, gilt das für ALLE geöffneten Mappen. Lösche als erstes deine Sub Auto_open, wie hier schon gesagt wurde, gibt es die nur noch aus Kompatibilitätsgründen mit älteren Versionen und sollte, von wenigen sehr speziellen Ausnahmen abgesehen, nicht mehr verwendet werden.
Füge dann im Codemodul DieseArbeitsmappe (Excel-Objekte) folgenden Code ein:
Private Sub Workbook_Activate()
Application.OnKey "{ENTER}", "myFunction()"
End Sub
Private Sub Workbook_Deactivate()
Application.OnKey "{ENTER}"
End Sub
Damit wird die Enter-Taste umdefiniert, wenn die Arbeitsmappe, für die das gelten soll, aktiv ist, und sobald eine andere Mappe aktiv wird (also auch wenn du eine neue erstellst), erhält Enter wieder seine ursprüngliche Funktion zurück. Die Sub myFunction muss, wie bisher sicher auch schon, in einem allgemeinen Modul stehen.
Gruß
|