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 :)
|