untenstehenden Code in aktive Tabelleblatt (Satammdaten) kopiert nummer in Tabelleblatt Invoer1 so weit so gut.
ich möchte aber gerne über gleiche Doubleklick ereignis, bestimmten werten auch in eine ander Tabellenblatt einfügen.
wie kan ich diese code in ein standard Modul setzen und unterschiedlichen Tabellenblätter ansprechen.
oder gibt es einen andere ansatz..?
Option Explicit
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Application.EnableEvents = False
Dim L As Long
Cancel = True
If Not Intersect(Target, Range("A2:E100000")) Is Nothing Then
'If Not Intersect(Target, [B4:D100000]) Is Nothing Then
With Sheets("Invoer1")
L = .Cells(.Rows.Count, 1).End(xlUp).Row + 1 ' Rows Spalte angaben einfügen .End( _
xlUp).Row + 1 untereinander
If L
beste grüßeHans