Gruppe
Dialog
Problem
Die Werte der TextBoxes sollen addiert werden.
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