Lieben Dank Micha
Private Sub CheckBox30_Click()
If CheckBox30.Value = True Then Range("AO66").Value = 7
If CheckBox30.Value = False Then Range("AO66").Value = ""
End Sub
Private Sub CheckBox30_Click()
If CheckBox30.Value = True Then Range("AO66").Value = 7.181
If CheckBox30.Value = False Then Range("AO66").Value = ""
End Sub