ich möchte per Mausklick auf eine Zelle diese in eine andere Zelle kopieren.
Das möchte ich mit mehreren Zellen nacheinander machen.
Wer kann mir helfen.
Gruß Uli
ich möchte per Mausklick auf eine Zelle diese in eine andere Zelle kopieren.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Target.Offset(0, 1) = Target
End Sub
Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel _
As Boolean)
Cells(1, 1) = Target.Value
End Sub