Hoe verhoog ik de waarde in een cel automatisch met 1

[PeterJanssen1948]

Hier ben ik weer eens...

Nadat de scores in een bepaalde biljartronde weggeschreven en uitgeprint heb, moeten die scores verwijdert worden, tot zover geen probleem, daar heb ik een macro onder een knop voor gemaakt.

Maar nu wil ik, dat in het vakje waarin ronde 1 t/m 4 (een team bestaat uit 4 leden) na het wissen met 1 opgeteld wordt. Het lijkt me zo simpel, maar de teller blijft bij mij op 1 staan... Ik doe iets verkeerd.

Sub Leegmaken()
'
' Leegmaken Macro
' Scores verwijderen
'

'
    Dim I As Integer
    
    Dim Msg, Style, Title, Help, Ctxt, Response, MyString
        Msg = "Weet u het zeker?"    ' Bericht
        Style = vbYesNo + vbCritical + vbDefaultButton2    ' Knoppen
        Title = "Scorebord leegmaken"    ' Titel
        Ctxt = 1000    ' Define topic context.
        ' Bericht tonen
        Response = MsgBox(Msg, Style, Title, Help, Ctxt)
           If Response = vbYes Then    ' User chose Yes.
                MyString = "Yes"    ' Perform some action.
                Range("E10:E39,H10:H39,P10:P39,S10:S39,K4").Select
                Range("K4").Activate
                Selection.ClearContents
         ' de volgende ronde
                I = I + 1
                Range("K4").Value = I
                
            Else    ' Nee
                MyString = "No"    ' Annuleren
            End If
End Sub

 

[PeterJanssen1948]

Hier ben ik weer eens...

Nadat de scores in een bepaalde biljartronde weggeschreven en uitgeprint heb, moeten die scores verwijdert worden, tot zover geen probleem, daar heb ik een macro onder een knop voor gemaakt.

Maar nu wil ik, dat in het vakje waarin ronde 1 t/m 4 (een team bestaat uit 4 leden) na het wissen met 1 opgeteld wordt. Het lijkt me zo simpel, maar de teller blijft bij mij op 1 staan... Ik doe iets verkeerd.

Sub Leegmaken()
'
' Leegmaken Macro
' Scores verwijderen
'

'
    Dim I As Integer
    
    Dim Msg, Style, Title, Help, Ctxt, Response, MyString
        Msg = "Weet u het zeker?"    ' Bericht
        Style = vbYesNo + vbCritical + vbDefaultButton2    ' Knoppen
        Title = "Scorebord leegmaken"    ' Titel
        Ctxt = 1000    ' Define topic context.
        ' Bericht tonen
        Response = MsgBox(Msg, Style, Title, Help, Ctxt)
           If Response = vbYes Then    ' User chose Yes.
                MyString = "Yes"    ' Perform some action.
                Range("E10:E39,H10:H39,P10:P39,S10:S39,K4").Select
                Range("K4").Activate
                Selection.ClearContents
         ' de volgende ronde
                I = I + 1
                Range("K4").Value = I
                
            Else    ' Nee
                MyString = "No"    ' Annuleren
            End If
End Sub

Na wat puzzelen zelf de fout ondekt

Sub Leegmaken()
'
' Leegmaken Macro
' Scores verwijderen
'

'
    Dim I As Integer
    
    Dim Msg, Style, Title, Help, Ctxt, Response, MyString
        Msg = "Weet u het zeker?"    ' Bericht
        Style = vbYesNo + vbCritical + vbDefaultButton2    ' Knoppen
        Title = "Scorebord leegmaken"    ' Titel
        Ctxt = 1000    ' Define topic context.
        ' Bericht tonen
        Response = MsgBox(Msg, Style, Title, Help, Ctxt)
           If Response = vbYes Then    ' User chose Yes.
                MyString = "Yes"    ' Perform some action.
                Range("E10:E39,H10:H39,P10:P39,S10:S39").Select
                Selection.ClearContents
            Else    ' Nee
                MyString = "No"    ' Annuleren
            End If
            ' de volgende ronde
                Range("K4").Select
                ActiveCell.Value = ActiveCell.Value + 1
            Range("E10").Select
End Sub