VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

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

Gruppe

Allgemein

Bereich

Berechnen

Thema

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

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

    


Beiträge aus dem Excel-Forum zu den Themen Allgemein und Berechnen