Cellen met voorwwaardelijke opmaak copieren en plakken

Beste,

Ik wil cellen copieren van een shiftrooster en plakken in een range met dropdownlist en daarbij de kleuren behouden maar niet de voorwaardelijke opmaak.

Komt goed Piet, we gaan er mee aan de slag.

Bestudeer dit eens.

https://www.helpmij.nl/forum/showth...ule-in-staat?p=6356731&viewfull=1#post6356731

Thanks, ik ga ermee aan de slag en laat het weten.

Mvg,

Piet

Bedankt,

Heb de onderstaande code gevonden en gebruikt welke voor mij perfect werkt.
Gezocht op vervangen van dynamische voor statische opmaak, zie code:

Sub FreezeConditionalFormattingOnSelection()
Dim Rng As Range, cel As Range, rng2 As Range


On Error GoTo Step102

Step101:


Set Rng = Application.Selection
Set Rng = Application.InputBox(Prompt:="Select range to check for conditional formatting", Title:="Select range", Default:=Rng.Address, Type:=8)
If Rng.Rows.Count < 2 Or Rng.Columns.Count < 2 Then
MsgBox "Please select a range containing more than 2 cells. Reselect range!!", vbCritical, "Range selection error"
GoTo Step101
End If




Set rng2 = Rng.Cells.SpecialCells(xlCellTypeAllFormatConditions)

For Each cel In rng2
With cel
.Interior.Color = .DisplayFormat.Interior.Color
.Font.Color = .DisplayFormat.Font.Color
.Font.Bold = .DisplayFormat.Font.Bold
.Font.Italic = .DisplayFormat.Font.Italic
End With
Next
Rng.FormatConditions.Delete


Exit Sub


Step102:


MsgBox "No conditional formatting cells found in selected range.", vbInformation, "No conditional formats found"


End Sub