Thema: Makroaufruf mit F6

ClassModule: DieseArbeitsmappe

Private Sub Workbook_BeforeClose(Cancel As Boolean)
   Application.OnKey "{F6}"
End Sub

Private Sub Workbook_Open()
   Application.OnKey "{F6}", "CopyAbove"
End Sub
StandardModule: Modul1

Sub CopyAbove()
   Dim wks As Worksheet
   Dim rng As Range
   On Error Resume Next
   Set wks = ActiveSheet
   If Err > 0 Or wks Is Nothing Then Exit Sub
   Application.ScreenUpdating = False
   If Selection.Row = 1 Then Exit Sub
   If Selection.Rows.Count > 1 Then Exit Sub
   For Each rng In Selection.Cells
      rng.Offset(-1, 0).Copy rng
   Next rng
   Application.CutCopyMode = False
   Application.ScreenUpdating = True
End Sub

Beiträge aus dem Excel-Forum zu den Themen Ereignis und Open