Microsoft Office Forum [ www.Office-Fragen.de ] >> READONLY <<

Microsoft Office 2003-2019 => Excel => Thema gestartet von: RockNRolla am September 29, 2016, 11:55:35 Vormittag

Titel: Office 2010: VBA - Zellenwerte durch Klick auf neues Tabellenblatt übertragen
Beitrag von: RockNRolla am September 29, 2016, 11:55:35 Vormittag

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

Titel: Antw:Office 2010: VBA - Zellenwerte durch Klick auf neues Tabellenblatt übertragen
Beitrag von: RockNRolla am Oktober 12, 2016, 10:25:24 Vormittag

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