Ich habe hier einen Code im Forums gefunden und wollte fragen was ich ändern muß die kopierten Daten in Einwanderster Blatt eingefügt werden.
Rudi
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("A1:F35")) Is Nothing Then
ActiveSheet.Unprotect "Test"
Range("G5").Value = Target.Value
ActiveSheet.Protect "Test"
End If
Cancel = True
End Sub