folgender Code soll mir in allen Tabellenblättern die Formeln entfernen und durch Werte ersetzen:
Private Sub CommandButton1_Click()
Dim ws as Worksheet
If MsgBox("Speichern unter bitte bestätigen. Durch bestätigen werden alle aktiven Formeln durch _
Werte ersetzt", vbYesNo) = vbYes Then
For Each ws In ActiveWorkbook.Worksheets
With Cells
.Copy
.PasteSpecial Paste:=xlPasteValues
End With
Next
Application.Dialogs(xlDialogSaveAs).Show
Else
Exit Sub
End If
Application.CutCopyMode = False
End Sub
Leider löscht er mir nur die Formeln im ersten Worksheet. Ich finde den Fehler nicht, warum die Formeln in den restlichen Tabellenblättern nicht gelöscht werden.Kann jmd. behilflich sein?
Viele Grüße
Berndt