VBA-Programmierung in Microsoft Excel

Werte aus Tabellenblatt-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

    

Beiträge aus dem Excel-Forum zu den Themen Dialog und TextBox