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

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

 

Hi Daniel,

da du dich nicht geäußert hast, in welche Spalten die Daten übertragen werden sollen, bin ich von Spalte A bic C ausgegangen:

Code:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Dim lngLetzte As Long
    If Target.Address(False, False) = "G2" Then
        With Worksheets("Planliste")
            ' letzte belegte Zeile in Spalte A
            lngLetzte = IIf(IsEmpty(.Cells(.Rows.Count, 1)), .Cells(.Rows.Count, 1).End(xlUp).Row, .Rows.Count)
            .Cells(lngLetzte + 1, 1) = Range("E3").Value
            .Cells(lngLetzte + 1, 2) = Range("F3").Value
            .Cells(lngLetzte + 1, 3) = Range("G3").Value
            Cancel = True
        End With
    End If
End Sub

Bis später,
Karin

 

Hallo Karin, danke für die schnelle Antwort.
Leider funktioniert es nicht ganz :/ bin aber schon auf einen Code gestoßen :)

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 Daniel

 

Hi Daniel,

und WAS funktioniert bei meinem Code nicht? Dein Code macht doch auch nichts anderes - der einzige Unterschied ist, dass du PasteSpecial mit Einfügen der Werte verwendest und ich die Werte direkt aus den Zellen entnehme.

Bis später,
Karin