Hallo,

ich möchte folgende Prozedur schreiben:

Ich habe eine Arbeitsmappe mit mehreren Blättern. Ich möchte, dass bei auslösen eines Command Buttons jedoch nur ausgewählte Blätter ausgewählt werden. Anschließend sollen auf diesen Arbeitsblättern in Abhängigkeit von dem Wert der in C6 auf diesen Blättern steht Formeln copiert und eingefügt werden. 

Folgenden Ansatz habe ich gestartet, der jedoch trotz ausbleibender Fehlermeldung nicht funktioniert: 

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

ich bitte um Hilfe :)