Ich möchte gerne nachdem ich ein Tabellenblatt kopiert habe alle Formeln Die das Blatt hat löschen damit diese nicht mehr verändert werden können . die Von Ihnen Erzeugten Werte sollen jedoch erhalten bleiben. Ich habe hier auch einen Code gefunden,
Sub WerteLoeschen()
Dim rng As Range
For Each rng In ActiveSheet.UsedRange.Cells
If rng.HasFormula Or IsNumeric(rng) Then
rng.ClearContents
End If
Next rng
End Sub
doch leider spuckt der immer einen Fehler aus. Siehe Bild weiss jemand Rat und ist das auch das richtige Scriptgrüße Ilch