ich würde gerne eine bestehende Formel welche sich z. B. in C1 befindet per Makro in die jeweils markierten Zellen übertragen! Ist dies machbar?
Viele Grüße
Mat
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
ActiveSheet.Cells(1, 3).Copy Destination:=Target
Cancel = True
End Sub
GreetZ Renee
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
Dim tCell As Variant
Const tDefault = "C1"
On Error Resume Next
tCell = InputBox("Formel soll aus dieser Zelle kopiert werden:", "Formel kopieren", _
tDefault)
If tCell = "" Then Exit Sub
ActiveSheet.Range(tCell).Copy Destination:=Target
Cancel = True
End Sub
Die CodeZeile mit Const tDefault = gibt die vorgegebene Adresse in der Inputbox.
Abbrechen oder Inputbox schliessen macht nix.
GreetZ Renee