VBA-Beispiel 066
mail schreiben
mail schreiben

mit VBA Formeln entfernen aber Inhalt behalten

Entfernt von der aktiven Tabelle alle Formeln. Die Inhalte/Werte der einzelnen Zellen bleiben aber erhalten.
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

Download:   vba066.zip