Herbers Excel-Forum - das Archiv
Listenfelder
Informationen und Beispiele zu den hier genannten Dialog-Elementen:
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
Betrifft: AW: Listenfelder
von: Klaus-Dieter
Geschrieben am: 22.11.2003 20:01:51
Hallo Ulli,
TextBox1 = ComboBox1.Value + Combobox2.Value
Gruß Klaus-Dieter
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