mit VBA Formeln entfernen aber Inhalt behalten

Public Sub Formeln_entfernen_Inhalt_behalten()
Dim rngZelle As Range
Dim lngAnz As Long

For Each rngZelle In ThisWorkbook.ActiveSheet.UsedRange

  'prüfen ob Zelle eine Formel enthält
  If rngZelle.HasFormula = True Then
    rngZelle = rngZelle.Value
    lngAnz = lngAnz + 1
  End If

Next rngZelle

MsgBox lngAnz & " Formeln entfernt", , ""

End Sub


Besser und vor allem schneller geht es so:


Public Sub Formeln_entfernen_schneller()

With Cells
  .Copy
  .PasteSpecial Paste:=xlPasteValues
End With

Application.CutCopyMode = False
End Sub