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
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen