Wert in Formel und vice versa

Thema: Allgemein - Gruppe Arbeitsblatt

Arbeitsmappe

220404    217604

Problem: Die Formel in Zelle M21 soll bei Schaltflächenklick in den Wert 0 oder der Wert Wert 0 soll in eine Formel umgewandelt werden.

StandardModule: Modul1

Sub EditM21()
   With Range("M21")
      If .HasFormula Then
         .Value = 0
      Else
         .Formula = "=M61"
      End If
   End With
End Sub