Mir stellt sich folgendes Problem: Ich möchte mittels Doppelklick den Inhalt der Zelle A4 in die Zelle B6 übertragen.
Ist das überhaupt möglich? Danke für Eure Hinweise.
Schürfi
Sub Zellkopie ()
Cells("B6") = Cells("A4")
End Sub
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Address(0, 0) = "A4" Then Range("B6") = Range("A4")
End Sub
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Address(0, 0) = "A4" Then
[B6] = [A4]
Cancel = True
end if
End Sub