Gruppe
Dialog
Bereich
TextBox
Thema
Werte aus Tabellenblatt-TextBoxes sollen addiert werden
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