Gruppe
Ereignis
Problem
Wie kann ich mit dem Drücken der Funktionstaste F6 den Wert von Zelle A1 in Zelle B1 übertragen?
ClassModule: DieseArbeitsmappe
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.OnKey "{F6}"
End Sub
Private Sub Workbook_Open()
Application.OnKey "{F6}", "ChangeValue"
End Sub
StandardModule: basMain
Sub ChangeValue()
Range("B1").Value = Range("A1").Value
End Sub