Kopieren durch doppelklick
Jens
ich habe hier ein Makro gefunden, das ich gern nutzen würde. In diesem Makro wird durch Doppelklick auf ein Feld, die gesamte Zeile an eine neue Stelle kopiert. Leider bin ich "unfähig" dieses Makro so zu ändern, das dies auch nur mit einem Feld passiert. Also ich möchte auf ein Feld in einem Tabellenblatt klicken und der Wert soll dann in Feld C30 geschrieben werden. Es wäre super wenn mir hier jemand helfen könnte. Vielen Dank.
Gruß Jens
Private Sub Doppelklick(ByVal Target As Range, Cancel As Boolean)
Rows(Target.Row).Copy
Tabelle1.Activate
Reihe = Tabelle1.Cells(Rows.Count, 1).End(xlUp).Row
Tabelle1.Rows(Reihe + 1).Select
ActiveSheet.Paste
End Sub
Anzeige