wie muß ich diesen Befehl umschreiben das nur Werte eingefügt werden
Option Explicit
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Excel.Range, Cancel As Boolean)
Dim lngZielZeile As Long
If Target.Column = 1 Then
lngZielZeile = Worksheets("Tabelle2").Cells(Rows.Count, 1).End(xlUp).Row + 1
Range(Cells(Target.Row, 1), Cells(Target.Row, 7)).Copy _
Destination:=Worksheets("Tabelle2").Range("A" & lngZielZeile)
End If
End Sub
LG Stefan