kennt jemand ein Makro, mit dem man in der gesamten Arbeitsmappe alle Formeln und bedingte Formatierungen in Feste umwandeln kann?
VG, Kisska
Cells.Copy
Cells.PasteSpecial xlPasteValuesAndNumberFormats
Cells.PasteSpecial xlPasteFormats
Gruß .Value = .Value
Für feste Formatierung habe ich diesen Code gefunden:
Sub FormatWORules()
Dim ws As Worksheet
Dim mySel As Range, aCell As Range
'~~> Change this to the relevant sheet
Set ws = ThisWorkbook.Sheets("CopiedSheet")
'~~> Change this to the relevant range
Set mySel = ws.Range("A1:Z50")
For Each aCell In mySel
With aCell
.Font.FontStyle = .DisplayFormat.Font.FontStyle
.Interior.Color = .DisplayFormat.Interior.Color
.Font.Strikethrough = .DisplayFormat.Font.Strikethrough
.Interior.Pattern = .DisplayFormat.Interior.Pattern
End With
Next aCell
mySel.FormatConditions.Delete
End sub