Informationen und Beispiele zum Thema Userform | |
---|---|
![]() |
Userform-Seite mit Beispielarbeitsmappe aufrufen |
Informationen und Beispiele zum Thema Label | |
---|---|
![]() |
Label-Seite mit Beispielarbeitsmappe aufrufen |
Informationen und Beispiele zum Thema ListBox | |
---|---|
![]() |
ListBox-Seite mit Beispielarbeitsmappe aufrufen |
Betrifft: Comboxwerte addieren
von: Thomas
Geschrieben am: 31.07.2012 10:36:45
Hallo zusammen,
in einer Userform habe ich zwei Comboboxen
Cbb1 und Cbb2
In einer Listebox sollen nun die Werte der beiden Comboboxen addiert werden.
Ich habe es bisher über RowSource gelöst und dort die entsprechende Zelle eingegeben, so werden die Werte aber bei Veränderung nicht aktualisiert.
Wie schreibt man denn das direkt in eine Listbox ?
Schöne Grüße
Thomas
Betrifft: AW: Comboxwerte addieren
von: {Boris}
Geschrieben am: 31.07.2012 10:38:33
Hi Thomas,
zeig mal Deine Datei mit dem Userform.
VG, Boris
Betrifft: AW: Comboxwerte addieren
von: Thomas
Geschrieben am: 31.07.2012 10:47:42
Hallo Boris,
es geht um die UserForm "Seite3".
Gruß
Thomas
https://www.herber.de/bbs/user/81203.xls
Betrifft: AW: Comboxwerte addieren
von: {Boris}
Geschrieben am: 31.07.2012 11:12:39
Hi Thomas,
ich schließe mich Karin an: Wozu eine ListBox?
Wenn Du nur eine Ergebnisanzeige brauchst, dann tut`s auch ein einfaches Label...
Also: Klär uns auf ,-)
VG, Boris
Betrifft: AW: Comboxwerte addieren
von: Beverly
Geschrieben am: 31.07.2012 11:08:23
Hi Thomas,
weshalb soll die Summe in einer Listbox ausgegeben werden? Soll die Summe bei jeder Änderung einer der ComboBoxen eingetragen werden sodass ein fortlaufender Nachweis der Änderungen dokumentiert wird? Oder was ist der Sinn?
Betrifft: AW: Comboxwerte addieren
von: Thomas
Geschrieben am: 31.07.2012 11:12:02
Hallo Karin,
ja, so habe ich es mir gedacht, dass sich bei jeder Änderung in der Combobox die Addition in dem Listfeld aktualisiert.
Gruß
Thomas
Betrifft: AW: Comboxwerte addieren
von: Beverly
Geschrieben am: 31.07.2012 12:18:34
Hi Thomas,
im Codemodul des UserForms diesen Code:
Private Sub cbb1_Change() If cbb1 = "" Then dblCBB1 = 0 Else dblCBB1 = CDbl(cbb1) End If If cbb2 = "" Then dblCBB2 = 0 Else dblCBB2 = CDbl(cbb2) End If ListBox1.AddItem dblCBB1 + dblCBB2 End Sub Private Sub cbb2_Change() If cbb1 = "" Then dblCBB1 = 0 Else dblCBB1 = CDbl(cbb1) End If If cbb2 = "" Then dblCBB2 = 0 Else dblCBB2 = CDbl(cbb2) End If ListBox1.AddItem dblCBB1 + dblCBB2 End Sub
Betrifft: AW: Comboxwerte addieren - Nochmals Danke :o)
von: Thomas
Geschrieben am: 31.07.2012 14:05:16
Danke!