Sub Worksheet_BeforeDoubleclick(ByVal target As Range, cancel As Boolean)
cancel = True
Dim letztezeile As Integer
With Worksheets("Rechnung")
letztezeile = .Range("a65536").End(xlUp).Row + 1
If letztezeile < 16 Then letztezeile = 16
.Cells(letztezeile, 2).Value = Cells(ActiveCell.Row, 3)
.Cells(letztezeile, 3).Value = Cells(ActiveCell.Row, 2)
.Cells(letztezeile, 4).Value = Cells(ActiveCell.Row, 4)
End With
End Sub
Jetzt möchte ich wissen, ob man auch ein namensfeld per doppelclick in eine andere Tabelle kopieren kann.
Also wenn ich in das namenfeld doppelklicke das es dann kopiert wird
Wenn es eine Möglichkeit gibt wäre ein Beispiel nett
Danke in voraus
Gruß gerd