Knap i Excel der lægger 1 til

Jeg har lige lavet et bedre eksempel til hvordan det skal se ud :

http://peecee.dk/upload/view/290611

Du sætter sådan en linje her ind i hver knaps programkode:

    Range("B2") = Range("B2") + 1


Nå okay, du får lige alle koderne.
De sættes ind i arkets kode, ikke i et modul.

*******************************************************************
Private Sub CommandButton1_Click()
    Range("B2") = Range("B2") + 1
End Sub


Private Sub CommandButton11_Click()
    Range("B2") = Range("B2") - 1
End Sub

Private Sub CommandButton2_Click()
    Range("B3") = Range("B3") + Range("C3")
End Sub

Private Sub CommandButton12_Click()
    Range("B3") = Range("B3") - Range("C3")
End Sub


Private Sub CommandButton3_Click()
    Range("B4") = Range("B4") + Range("C4")
End Sub

Private Sub CommandButton13_Click()
    Range("B4") = Range("B4") - Range("C4")
End Sub

Private Sub CommandButton4_Click()
    Range("B5") = Range("B5") + Range("C5")
End Sub

Private Sub CommandButton14_Click()
    Range("B5") = Range("B5") - Range("C5")
End Sub

Private Sub CommandButton5_Click()
    Range("B6") = Range("B6") + Range("C6")
End Sub

Private Sub CommandButton15_Click()
    Range("B6") = Range("B6") - Range("C6")
End Sub

Private Sub CommandButton6_Click()
    Range("B7") = Range("B7") + Range("C7")
End Sub

Private Sub CommandButton16_Click()
    Range("B7") = Range("B7") - Range("C7")
End Sub

Private Sub CommandButton7_Click()
    Range("B8") = Range("B8") + Range("C8")
End Sub

Private Sub CommandButton17_Click()
    Range("B8") = Range("B8") - Range("C8")
End Sub

Private Sub CommandButton8_Click()
    Range("B9") = Range("B9") + Range("C9")
End Sub

Private Sub CommandButton18_Click()
    Range("B9") = Range("B9") - Range("C9")
End Sub

Private Sub CommandButton9_Click()
    Range("B10") = Range("B10") + Range("C10")
End Sub

Private Sub CommandButton19_Click()
    Range("B10") = Range("B10") - Range("C10")
End Sub

Private Sub CommandButton10_Click()
    Range("B11") = Range("B11") + Range("C11")
End Sub

Private Sub CommandButton20_Click()
    Range("B11") = Range("B11") - Range("C11")
End Sub
*****************************************************************

Tak skal du have :D fedt nok. Smid et svar!

;b)