Dann so:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim lngZiel As Long
' Doppelklick in Spalte B
If Target.Column = 2 Then
Cancel = True
With Target.Resize(1, 7)
.Copy Worksheets("Historie").Cells(Rows.Count, 2).End(xlUp).Offset(1, -1)
.ClearContents
End With
End If
End Sub
|