Sub End wurde erwartet
11.02.2017 14:45:06
Hlavac
Ich möchte nach Doppelklick auf Zelle A1 den Inhalt der Zellen A1 und B1 in Zelle G11 kopieren
Wer kann mir bitte helfen?
Sub Kopieren()
End Sub
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Address "$A$1" Then Exit Sub
ActiveSheet.Range("A1:B1").Copy ActiveSheet.Range("G11")
End If
End Sub