Macro cel +1

[paulH]

Heren ik zit met het volgende probleem

ik heb een rij met getallen

A1:A6

19

20

0

36

42

5

ik heb een command buton gemaakt met de code

Private Sub CommandButton1_Click()

[blad1!A1] = [blad1!A1] + 1

[blad1!A2] = [blad1!A2] + 1

[blad1!A3] = [blad1!A3] + 1

[blad1!A4] = [blad1!A4] + 1

[blad1!A5] = [blad1!A5] + 1

[blad1!A6] = [blad1!A6] + 1

End Sub

nu werk dit prima echter als het getal 0 is mag hij geen punt erbij tellen

de nul is overigens variable die kan ook op het eerste getal vallen en dan weer op het tweede of vijfde

if nul = 0 ?

hierin loop ik vast wie kan me helpen

[GiMe]

Private Sub CommandButton1_Click()

For r = 1 To 6

If Range("A" & r) = 0 Then

Range("A" & r) = 0

Else

Range("A" & r) = Range("A" & r) + 1

End If

Next r

End Sub