Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Werte aus Tabellenblatt-TextBoxes sollen addiert werden

Gruppe

TextBox

Problem

Die Werte der TextBoxes sollen addiert werden.

Lösung
Geben Sie den Ereigniscode in das Klassenmodul des Arbeitsblattes ein.

ClassModule: Tabelle1

Private Sub cmdAdd_Click()
   Dim txt As OLEObject
   Dim iSum As Integer
   For Each txt In OLEObjects
      If TypeName(txt.Object) = "TextBox" Then
         If txt.Object.Text <> "" Then
            iSum = iSum + CInt(txt.Object.Text)
         End If
      End If
   Next txt
   MsgBox "Summe: " & iSum
End Sub