checkbox skal lave udregning

Hvordan er checkboksen konstrueret - kotrolelement, formular eller?

jeg har lavet det som kontrolelement, men det er ligegyldigt, det var bare den eneste måde jeg kendte :-)
så der er frit valg

Private Sub CheckBox1_Change()
    If CheckBox1.Value = True Then
        Range("F10") = Range("F8") - Range("F9")
    Else
        Range("F11") = Range("F8") - Range("F9")
    End If
End Sub

rem Ovenstående udføres når checkboksen skifter værdi - men det er måske under andre omstændigheder?

kan man lave det sådan at både en ændring i controlboksen og / eller en indtastning i f8 f9 gør det

hmm, jeg var ellers pænt tæt på selv :-)

ja da - vender tilbage senere

Version 2

Private Sub CheckBox1_Change()
    testCheckBox1
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$F$8" Or Target.Address = "$F$9" Then
        testCheckBox1
    End If
End Sub
Private Sub testCheckBox1()
    If CheckBox1.Value = True Then
        Range("F10") = Range("F8") - Range("F9")
        Range("F11") = ""                          'Sletter indhold i Falsk-celle
    Else
        Range("F11") = Range("F8") - Range("F9")
        Range("F10") = ""                          'Sletter indhold i Sand-celle
    End If
End Sub

Super :-)

Ok & tak..

kan jeg få lidt ekstra hjælp

Jeg lavede det om til denne

Private Sub CheckBox1_Change()
    testCheckBox1
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$P$5" Or Target.Address = "$O$5" Then
        testCheckBox1
    End If
End Sub
Private Sub testCheckBox1()
    If CheckBox1.Value = True Then
        Range("R5") = Range("P5") - Range("O5")
        Range("S5") = ""                          'Sletter indhold i Falsk-celle
    Else
        Range("S5") = Range("P5") - Range("O5")
        Range("R5") = ""                          'Sletter indhold i Sand-celle
    End If
End Sub
Private Sub CheckBox2_Change()
    testCheckBox2
Private Sub Worksheet_Change(ByVal Target As Range)
Private Sub
    If Target.Address = "$P$6" Or Target.Address = "$O$6" Then
        testCheckBox2
    End If
End Sub
Private Sub testCheckBox2()
    If CheckBox2.Value = True Then
        Range("R6") = Range("P6") - Range("O6")
        Range("S6") = ""                          'Sletter indhold i Falsk-celle
    Else
        Range("S6") = Range("P6") - Range("O6")
        Range("R6") = ""                          'Sletter indhold i Sand-celle
    End If
End Sub


Men den siger at Worksheet change er "ambiguous" jeg har prøvet med forskellige andre navne, men uden det store held, er der et forslag

Prøver lige atse på det...

Der kan kun være EN WORKSHEET_CHANGE(...
men heri kan du så opstille de forskellige betingelser

Private Sub CheckBox1_Change()
    testCheckBox1
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$P$5" Or Target.Address = "$O$5" Then
        testCheckBox1
    Else
        If Target.Address = "$P$6" Or Target.Address = "$O$6" Then
            testCheckBox2
        End If
    End If
End Sub
Private Sub testCheckBox1()
    If CheckBox1.Value = True Then
        Range("R5") = Range("P5") - Range("O5")
        Range("S5") = ""                          'Sletter indhold i Falsk-celle
    Else
        Range("S5") = Range("P5") - Range("O5")
        Range("R5") = ""                          'Sletter indhold i Sand-celle
    End If
End Sub
Private Sub CheckBox2_Change()
    testCheckBox2
End Sub
Private Sub testCheckBox2()
    If CheckBox2.Value = True Then
        Range("R6") = Range("P6") - Range("O6")
        Range("S6") = ""                          'Sletter indhold i Falsk-celle
    Else
        Range("S6") = Range("P6") - Range("O6")
        Range("R6") = ""                          'Sletter indhold i Sand-celle
    End If
End Sub

:-)

vil du have flere p

Nej tak - har vist fået det, som opgaven kan bære..

det kan godt være det var nemt for dig, men det er en stor hjælp for mig

Fint nok.. (det var set ud fra min side :-)