In allen WS Formeln durch Werte ersetzen
27.01.2005 11:48:41
Torsten
ich möchte in allen WS die Formeln durch Werte ersetzen und hab' mir dafür folgenden Code zusammnengestellt:
Sub Sheet_FormValALL()
If MsgBox("Wollen Sie jetzt wirklich alle Formeln durch Werte ersetzen?", vbYesNo) = vbYes Then
Application.ScreenUpdating = False
Dim lastsheet As String
Dim wks As Worksheet
lastsheet = ActiveSheet.Name
For Each wks In Worksheets
Cells.Copy
Cells.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Next wks
Else
End If
Application.CutCopyMode = False
Application.ScreenUpdating = True
Sheets(lastsheet).Range("A1").Select
End Sub
Leider führt Excel diese Aktion nur in dem WS aus, in dem ich mich gerade befinde. Hat einer Idee, was in dem Code noch falsch ist?
Vielen Dank für Eure Hilfe.
Gruß
Torsten