Gruppe
Ereignis
Bereich
Open
Thema
Mit F6 Werte von einer zur anderen Zelle transferieren
Problem
Wie kann ich mit dem Drücken der Funktionstaste F6 den Wert von Zelle A1 in Zelle B1 übertragen?
Lösung
Geben Sie den Ereigniscode in das Klassenmodul der Arbeitsmappe ein.
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