Clever-Excel-Forum

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

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

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

lg

RockNRolla

Crazy Tom

RockNRolla