Zellen Kopieren
06.10.2014 15:32:10
Peter
Was muss ich tun das der Code nur auf bestimmte Zelle reagiert und nicht wie jetzt auf alle Zellen i eine Tabelle. Zbs. auf Bereich von E6 bis E9. Die alle andere Zellen sollen auf anklicken nicht reagieren.
Vielen Dank.
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
.PasteSpecial xlPasteFormats
End With
Application.CutCopyMode = False
End Sub
Anzeige