Alle Formeln durch Werte ersetzen
24.02.2015 10:42:00
Tim
Ich möchte alle Formeln via Makro durch Werte substituieren.
Dafür verwende ich:
Sub All_Cells_In_All_WorkSheets_1()
Dim sh As Worksheet
For Each sh In ActiveWorkbook.Worksheets
sh.Select
With sh.UsedRange
.Cells.Copy
.Cells.PasteSpecial xlPasteValues
.Cells(1).Select
End With
Application.CutCopyMode = False
Next sh
End Sub
Das gibt mir aber eine Fehlermeldung das die Bereiche (ausgeschnitten und einzufügen) unterschiedliche Formen und Grösse haben sind.
Ich blende Spalten aus und verwende Filter in dem Sheet. Ich vermute dass es daran liegt.
Gibt es eine alternative Möglichkeit?
Grüsse