Summe von Textboxen im Klassenmodul
18.01.2007 13:22:46
Textboxen
Ich erstellen bei der Initialisierung einer UserForm mittels Klassenmodul mehrere Textfelder, in die Zahlen (double) als Werte eingetragen werden.
**** Klassenmodul:
Public WithEvents Neue_TextBox As MSForms.TextBox
Private Sub Neue_TextBox_change()
MsgBox "Change: " & Neue_TextBox.Value
End Sub
*** Userform:
Private Sub UserForm_Initialize()
For J= 1 to AnzahlProjekte
'Jetzt TextBox mit Stunden
Dim oTxt As MSForms.TextBox
Set oTxt = Me.Controls.Add("forms.TextBox.1")
With oTxt
.Name = "PrjAufwand" & J
.Left = 335
.Top = 130 + (J - 1) * 18
.Height = 15
.Width = 60
.Text = Format(vPrjAufw(J), "##,##0.00")
.BorderStyle = fmBorderStyleSingle
.TextAlign = fmTextAlignRight
.Tag = "PrjAufwand"
End With
Set neuTxt(J).Neue_TextBox = oTxt
Else
Me.Controls("PrjAufwand" & J).Text = vPrjAufw(J)
End If
Next J
In meiner Userform habe ich eine weitere TextBox, in der ich dynamisch (also bei jeder Änderung einer der zur Laufzeit generierten TextBoxen) die Summe der Textboxen anzeigen lassen möchte.
Mit welcher Funktion kann ich im Klassenmodul zur Laufzeit die Summe der Textboxen 'PrjAufwand1' bis 'PrjAufwand-n' erstellen?
Gruß Falko Thom