Sub Kopieren_einfach()
Dim wbQuelle As Workbook, i As Long
Set wbQuelle = Workbooks("Testdatei mit Geräten.xlsm")
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
Application.EnableEvents = False
With ThisWorkbook
For i = 1 To .Sheets.Count
.Sheets(i).Range("C9:E12").Value = wbQuelle.Sheets(i).Range("C9:E12").Value
.Sheets(i).Range("H9:J12").Value = wbQuelle.Sheets(i).Range("H9:J12").Value
.Sheets(i).Range("M9:N10").Value = wbQuelle.Sheets(i).Range("M9:N10").Value
.Sheets(i).Range("L12").Value = wbQuelle.Sheets(i).Range("L12").Value
.Sheets(i).Range("N11:N12").Value = wbQuelle.Sheets(i).Range("N11:N12").Value
Next i
End With
Set wbQuelle = Nothing
Application.EnableEvents = True
Application.Calculation = xlCalculationAutomatic
End Sub