Ich brauch Eure Hilfe.
Ich möchte das diese Code nicht nur die Werte aber auch die Formatierung mit kopiert.
Danke Peter
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Worksheets("Abfallerfassung Base Extrusion").Range("E" & Rows.Count).End(xlUp).Offset(1, 0) = _
Target.Value: Cancel = True
End Sub
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Target.Copy
With Worksheets("Abfallerfassung Base Extrusion").Range("E" & Rows.Count).End(xlUp).Offset(1, 0) _
.PasteSpecial xlpastevalues
.PasteSpecial xlpasteformats
end With
Application.cutcopymode = false
End Sub
Gruß Daniel