habe folgenden Code bereits Dank Euch erfolgreich im Einsatz
Private Sub Workbook_Open()
Application.OnKey "{F9}", "DeinMakroName"
End Sub
***************************************************************
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.OnKey "{F9}"
End Sub
**************************************************************
Sub DeinMakroName()
Dim c As Range
For Each c In Selection
c.Value = c.Value + 1
Next
End Sub
***************************************************************
Jetzt kann es mal vorkommen, dass ich auch mal wieder einige Zeilen um eine verringern muss. Gibt es da vielleicht auch die Möglichkeit also -1 auf z.B. F3? In der gleichen Datei natürlich.
Danke im voraus
DIRK