Hallo 

Wie kann ich denn das Modul dahingehend ergänzen, dass vor der Ausführung der Blattschutz aufgehoben wird und unmittelbar nach der Ausführung der Blattschutz wieder aktiviert wird?

Public Sub CopyRegion_C()
  Dim rngTarget As Range
    Dim rngSource As Range
    Dim i As Long
    Dim arr(): arr = Array("A2:I18", "L2:O18", "Q2:T17", "C6", "C17", "C25")
    
    ' Clear region
    Tabelle1.Range("C5:T40").Clear
    
    For i = 0 To 2
        ' Copy data
        Set rngSource = Tabelle2.Range(arr(i))
        Set rngTarget = Tabelle1.Range(arr(i + 3))
    
        rngSource.Copy
        rngTarget.PasteSpecial xlPasteAll, xlPasteSpecialOperationNone, False, True
        Application.CutCopyMode = False
    Next i
  
Range("C14:S14").Borders(xlEdgeBottom).Color = RGB(255, 255, 255)        'Linienfarbe
Range("C14:S14").Borders(xlEdgeBottom).LineStyle = xlContinuous          ' Linienart
Range("C14:S14").Borders(xlEdgeBottom).Weight = xlThin                   'Linienstaerke

Range("C20:S20").Borders(xlEdgeBottom).Color = RGB(255, 255, 255)        'Linienfarbe
Range("C20:S20").Borders(xlEdgeBottom).LineStyle = xlContinuous          ' Linienart
Range("C20:S20").Borders(xlEdgeBottom).Weight = xlThin                   'Linienstaerke

Range("E11:N11").Borders(xlEdgeBottom).Color = RGB(255, 255, 255)        'Linienfarbe
Range("E11:N11").Borders(xlEdgeBottom).LineStyle = xlContinuous          ' Linienart
Range("E11:N11").Borders(xlEdgeBottom).Weight = xlThin                   'Linienstaerke

Range("E7:P7").Borders(xlEdgeBottom).Color = RGB(255, 255, 255)        'Linienfarbe
Range("E7:P7").Borders(xlEdgeBottom).LineStyle = xlContinuous          ' Linienart
Range("E7:P7").Borders(xlEdgeBottom).Weight = xlThin                   'Linienstaerke

Range("J6:J7").Borders(xlEdgeLeft).Color = RGB(255, 255, 255)        'Linienfarbe
Range("J6:J7").Borders(xlEdgeLeft).LineStyle = xlContinuous          ' Linienart
Range("J6:J7").Borders(xlEdgeLeft).Weight = xlThin                   'Linienstaerke

Range("Q6:Q7").Borders(xlEdgeLeft).Color = RGB(255, 255, 255)        'Linienfarbe
Range("Q6:Q7").Borders(xlEdgeLeft).LineStyle = xlContinuous          ' Linienart
Range("Q6:Q7").Borders(xlEdgeLeft).Weight = xlThin                   'Linienstaerke

Range("L5").Borders(xlEdgeBottom).LineStyle = xlNone                   'Linienstaerke

Range("L6").Borders(xlEdgeRight).Color = RGB(255, 255, 255)        'Linienfarbe
Range("L6").Borders(xlEdgeRight).LineStyle = xlContinuous          ' Linienart
Range("L6").Borders(xlEdgeRight).Weight = xlThin                   'Linienstaerke

Range("S6").Borders(xlEdgeRight).Color = RGB(255, 255, 255)        'Linienfarbe
Range("S6").Borders(xlEdgeRight).LineStyle = xlContinuous          ' Linienart
Range("S6").Borders(xlEdgeRight).Weight = xlThin                   'Linienstaerke

Range("A42").Select

End Sub