Hallo fischi
Schau mal in den Objekt-Explorer und suche nach AddItem. Du wirst folgendes feststellen:
Die .AddItem-Methode erwartet einen oder zwei Parameter. Beide sind optional (erkennst du daran, dass sie in eckigen Klammern stehen) und vom Typ Variant (erkennst du daran, das keine As-Deklaration dahinter steht.) Variablen und Parameter vom Datentyp Variant können sowohl Texte als auch Zahlen aufnehmen. Genauso ist auch die Value-Eigenschaft der Combobox vom Typ Variant und kann dir je nach Inhalt sowohl Text als auch eine Zahl zurückgeben. Mit den Zahlen kannst du dann direkt rechnen. Probier mal folgenden Code.
Private Sub ComboBox1_Change()
MsgBox ComboBox1.Value * 2
End Sub
Private Sub CommandButton1_Click()
ComboBox1.AddItem 2.5, 2
End Sub
Private Sub UserForm_Initialize()
ComboBox1.AddItem 1
ComboBox1.AddItem 2
ComboBox1.AddItem 3
ComboBox1.AddItem 4
End Sub
Damit der Code funktioniert müssen sich auf dem Userform eine Combobox1 und ein CommandButton1 befinden. Bei Start des Userforms wird die Combobox mit den Zahlen 1 bis 4 gefüllt. Bei Klick auf den Button kommt die Zahl 2.5 an gewünschter Stelle hinzu. Wenn du einen wert auswählst wird dieser mit 2 multipliziert und angezeigt.
Wenn du jedoch nur Text zurückgeben willst, also auch Zahlen im String-Format, dann nutze die Text-Eigenschaft der Combobox.
z.B. mit Msgbox "Die Zahl " & Combobox1.Text & " wurde ausgewählt."
Gruß Mr. K.
|