Herbers Excel-Forum - das Archiv

Listenfelder

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
Bild

Betrifft: Listenfelder
von: Ulli
Geschrieben am: 22.11.2003 19:49:01
Hallo Excel-User
Ich habe auf der Plattform einer Userform zwei Kombinationsfelder (ComboBox1 und ComboBox2) und ein
weiteres Textfeld(TextBox1)eingerichtet. Jetzt möchte ich, dass die Werte(Zahlen) die in den Kombinationsfeldern eingetragen- b.z.w. ausgewählt werden, summiert, und als Ergebnis in dem Textfeld angezeigt wird(Kontrollfunktion).
Wer kann mir helfen?
Danke bereits im Voraus!
Gruß Ulli

Bild

Betrifft: AW: Listenfelder
von: Klaus-Dieter
Geschrieben am: 22.11.2003 20:01:51
Hallo Ulli,

TextBox1 = ComboBox1.Value + Combobox2.Value

Gruß Klaus-Dieter


Bild

Betrifft: AW: Listenfelder
von: Nepumuk
Geschrieben am: 22.11.2003 20:08:04
Hallo Ulli,
so geht's:


Option Explicit
Private Sub ComboBox1_Change()
If Trim(ComboBox1) <> "" Then
If IsNumeric(ComboBox1) Then
If ComboBox2 <> "" Then
If IsNumeric(ComboBox2) Then TextBox1 = CStr(CDbl(ComboBox1) + CDbl(ComboBox2))
End If
End If
End If
End Sub
Private Sub ComboBox2_Change()
If Trim(ComboBox2) <> "" Then
If IsNumeric(ComboBox2) Then
If ComboBox1 <> "" Then
If IsNumeric(ComboBox1) Then TextBox1 = CStr(CDbl(ComboBox2) + CDbl(ComboBox1))
End If
End If
End If
End Sub



Code eingefügt mit:
Excel Code Jeanie

Gruß
Nepumuk
Bild