Office 2010: VBA - Zellenwerte durch Klick auf neues Tabellenblatt übertragen

[RockNRolla]

Hallo

Da ich im Internet auch durch langes suchen nicht auf die genau Richtige Lösung gestoßen bin hoffe ich von euch Hilfe zu bekommen.
Ich als VBA-Neuling bräuchte für die Arbeit eine Automatisierung um uns einiges zu erleichtern.

Folgendes Problem:
Ich würde gerne die Werte (nur Werte - nicht Formeln) die in den Zellen E3, F3 und G3 stehen, vom Tabellenblatt "Generator", durch Doppelklick auf die Zelle G2 (oder Ähnliche Lösung) in die Nächste freie Zeile ins Tabellenblatt "Planliste" kopieren.

Ich hoffe ihr habt eine Lösung für mich

Danke schon im Voraus
mit freundlichen Grüßen
Daniel

[RockNRolla]

Hat sich mit untenstehendem Code schon geklärt

Code:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
   Dim lngZiel As Long
   If Not Intersect(Target, Range("G2")) Is Nothing Then
       Cancel = True
       With Sheets("Planliste")
           lngZiel = .Cells(.Rows.Count, 1).End(xlUp).Row + 1
           Range("E3:G3").Copy
           .Cells(lngZiel, 1).PasteSpecial Paste:=xlPasteValues
       End With
   End If
   Application.CutCopyMode = False
   MsgBox "fertsch"
End Sub