habe folgenden Code bereits 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()
Range(ActiveCell.Address).Value = Range(ActiveCell.Address).Value + 1
End Sub
***************************************************************
Jetzt sollte er nicht nur die einzelne Aktive Zelle +1 Zählen, sondern den markierten Bereich +1 Zählen....was müsste ich ändern!
Danke
DIRK