1
Excel / Antw:Office 2010: VBA - Zellenwerte durch Klick auf neues Tabellenblatt übertragen
« 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
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