Hallo,

versuch es mal so:

Sub ActualÜbertragNachPeriode()
  Dim ws As Worksheet
  For Each ws In Worksheets
  
  If ws.Name = "PAR_Parcel_LC" or ws.Name = "PAR_Mail_LC" Then

  Select Case ws.Range("C6").Value
    
        Case "P03"
        ws.Range("L14:L42").Copy
        ws.Range("M14:M42").PasteSpecial xlPasteFormulas
        Debug.Print ws.Name & "Formel kopiert"  

        Case "P04"
        ws.Range("L14:L42").Copy
        ws.Range("O14:O42").PasteSpecial xlPasteFormulas
        Debug.Print ws.Name & "Formel kopiert"

 End Select
 End If
             Next ws
  End Sub

Gruß

Michael