CommandButton
30.01.2006 13:54:15
sunzi
Habe als Anfänger nachfolgende Formel programmiert um auf Klick in einem Feld den Wert um 1 zu erhöhen.
Nun habe ich das Problem, dass ich in meinem Formular ca. 50 derartige Schaltknöpfe (Buttons) benötige.
Meine Frage wäre nun, gibt es eine Möglichkeit die nachangeführte Formel so umzuschreiben, dass ich nicht für alle 50 Schaltknöpfe eine eigene Programmierung benötige.
Bin wie gesagt Anfänger und ersuche daher um Nachsicht.
Vielen Dank.
Private Sub CommandButton1_Click()
If IsNumeric(Sheets("Tabelle1").Cells(1, 1).Value) Then
Sheets("Tabelle1").Cells(5, 7).Value = Sheets("Tabelle1").Cells(5, 7).Value + 1
Else
Exit Sub
End If
End Sub