Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Wert auf Schaltfläche und in Zelle um eins erhöhen

Gruppe

Berechnen

Problem

Wie kann ich auf Schaltflächendruck den Wert in der Schaltflächenaufschrift und in Zelle A1 um jeweils 1 erhöhen?

Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.

ClassModule: Tabelle1

Private Sub cmdZaehlen_Click()
   cmdZaehlen.Caption = "Aktueller Wert: " & CStr(Wert + 1)
   Range("A1").Value = Wert
End Sub

Private Function Wert() As Integer
   With cmdZaehlen
      Wert = Val(Right(.Caption, Len(.Caption) - _
         InStr(15, .Caption, " ")))
   End With
End Function