VBA - Zellenwerte durch Klick auf neues Tabellenblatt übertragen

[RockNRolla]

Hallo [Bild: smiley.gif]

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 [Bild: smiley.gif]

Danke schon im Voraus
mit freundlichen Grüßen
Daniel

[Crazy Tom]

Hallo

du hast nicht geschrieben in welche Spalte die Werte kopiert werden sollen
ich habe es jetzt so getestet, dass die Werte in Spalte A kopiert werden

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

MfG Tom

[RockNRolla]

@Crazy Tom
Vielen Dank funktioniert genauso wie ich mir das vorgestellt habe :28:

lg