End Pub wurde erwartet
12.02.2017 11:06:28
Hlavac
Sub Kopieren()
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("A1:B1")) Is Nothing Then
ActiveSheet.Range("A1:B1").Copy ActiveSheet.Range("G11")
End If
End Sub
End Sub