Es tut mir wirklich leid deine nerven zu strapazieren aber ich komm einfach nicht hin! :-(
ich hab jetzt unten nochmal die 4 Felder aufgeführt sowie den Code für das Textfeld.
Private Sub ComboBox48_Change()
ComboBox48.Tag = ComboBox48.Value
Summe_bilden
End Sub
Private Sub ComboBox49_Change()
ComboBox49.Tag = ComboBox49.Value
Summe_bilden
End Sub
Private Sub ComboBox50_Change()
ComboBox50.Tag = ComboBox50.Value
Summe_bilden
End Sub
Private Sub ComboBox51_Change()
ComboBox51.Tag = ComboBox51.Value
Summe_bilden
End Sub
UND diesen Code:
For Each CTR In UserForm2.Controls
If InStr(1, UCase(CTR.Name), "COMBOBOX") <>0 And CTR.Tag <>"" Then
PZahl = PZahl + CInt(CTR.Tag)
End If
Next
(wo genau muss ich diesen Code hinschreiben? zum Textfeld32?
danke vielmals!!
Gerhard
|