Hi Gerhard,
was das End If betrifft hast Du natürlich recht! Das ist das Problem mir diesem Forum, daß Texte nicht mit Zeileneinzug dargestellt werden. Da vergißt man leicht sow as wie ein End ..., weiles unübersichtlich ist.
Richtig muß es also heißen:
For Each CTR In UserForm1.Controls
If InStr(1, UCase(CTR.Name), "COMBOBOX") ungleich 0 And CTR.Tag ungleich "" Then
PZahl = PZahl + CInt(CTR.Tag)
End If
Next
wobei das "ungleich" natürlich durch die entsprechenden Operatoren ersetzt werden muß.Der Code
Private Sub ComboBoxn_Change()
ComboBoxn.Tag = ComboBoxn.SelText 'n = Nummer der ComboBox, also etwa 48
Summe_bilden
End Sub
muß natürlich für jede Combobox erstellt werden, die Du eingerichtet hast. Außerdem solltest Du den Code zu
Private Sub ComboBox1_Change()
ComboBox1.Tag = ComboBox1.Value 'Nummer der ComboBox, also etwa 48 eingeben
Summe_bilden
End Sub
Severus
|