der folgende Code kopiert Zellen per Doppelklick in eine andere Spalte des Blattes.
Option Explicit
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim KopiereZuSpalte As Long
With ActiveSheet
KopiereZuSpalte = 10 'Spaltennummer angeben, in die kopiert werden soll
If Target.Column = 1 Then 'Spaltennummer angeben, aus der mit Doppelklick _
kopiert werden soll
Cells(ActiveSheet.Cells(Rows.Count, KopiereZuSpalte).End(xlUp).Row + 1, _
KopiereZuSpalte).Value = Target.Value
End If
End With
End Sub
Was muss ich ändern, damit der Code in allen Tabellenblättern der Mappe wirksam ist und er nicht in jedes einzelne Blatt kopiert werden muss.Danke und Servus, Walter