Excel und VBA: Formeln, Programmierung, Lösungen

ClassModule: Tabelle1

Private Sub CheckBox1_Click()
   ActiveCell.Select
   With Range("A2")
      If CheckBox1.Value = True Then
         .Value = 2.5
      Else
         .Value = ""
      End If
   End With
End Sub

    

Beiträge aus dem Excel-Forum zu den Themen Dialog und CheckBox