Sub Kopieren_einfach()
Dim wbQuelle As Workbook, wsQuelle As Worksheet
Set wbQuelle = Workbooks("Testdatei mit Geräten.xlsm")
Set wsQuelle = wbQuelle.Worksheets("001")
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
Application.EnableEvents = False
With ThisWorkbook.Worksheets("001")
.Range("C9:E12").Value = wsQuelle.Range("C9:E12").Value
.Range("H9:J12").Value = wsQuelle.Range("H9:J12").Value
.Range("M9:N10").Value = wsQuelle.Range("M9:N10").Value
.Range("L12").Value = wsQuelle.Range("L12").Value
.Range("N11:N12").Value = wsQuelle.Range("N11:N12").Value
End With
Set wbQuelle = Nothing: Set wsQuelle = Nothing
Application.EnableEvents = True
Application.Calculation = xlCalculationAutomatic
End Sub