Gruppe
Allgemein
Problem
Wie kann ich auf Schaltflächendruck den Wert in der Schaltflächenaufschrift und in Zelle A1 um jeweils 1 erhöhen?
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