Formel doppelklick
01.12.2019 06:09:34
Bendin
Ich hätte da mal ein Problem, welches sicher kein Problem für einen Experten ist.
Kann mir jemand folgende Formel so umstellen das ich beim doppelklik in der Spalte Z nicht de ganze Zeile sondern nur die Zellen A:AH dieser Zeile kopiere?
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, Range("Z4:Z250")) Is Nothing Or _
Target.Count > 1 Then Exit Sub
Dim z As Long
Cancel = True
With Sheets("Einkauf")
z = .Cells(Rows.Count, 1).End(xlUp).Row + 1
Target.EntireRow.Copy .Rows(z)
End With
End Sub