Sub kopieren()
Dim WB1 As Workbook, WB2 As Workbook
Dim WS1 As Worksheet, WS2 As Worksheet
Set WB1 = Workbooks("Anton")
Set WB2 = Workbooks("Berta")
Set WS1 = WB1.Sheets("Alpha")
Set WS2 = WB2.Sheets("Beta")
WB1.WS1.Range("A1").Copy
WB2.WS2.Range("B2").PasteSpecial xlPasteValues
Application.CutCopyMode = False
End Sub