werde leider nicht fündig und komme nicht weiter.
Möchte per Doppelklick die aktive Zelle plus die 2 Nachbarzellen (rechts) in die Zwischenablage kopieren.
Habe folgenden Code gefunden der mit der aktiven Zelle funktioniert.
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
MyData.SetText ActiveCell.Text
MyData.PutInClipboard
MsgBox "[" & ActiveCell.Text & "]" & vbCrLf & _
"in der Zwischenablage!", vbOKOnly + vbInformation, "Copy Done!"
End Sub
Beispiel:
Klick z.B. auf A1 soll A1-A3 in die Zwischenablage kopieren
Danke für eure Unterstützung