Private Sub Combo1_Click()
Dim int_anzahl As Integer
Dim ergebnis As Double
Dim I As Integer
 
 
If Combo1.Text <> "" Then
' Prüfen ob bereits vorhanden
   For I = 0 To Combo1.ListCount - 1
      If Combo1.List(I) = Combo1.Text Then
         int_anzahl = int_anzahl + 1
      End If
   Next I
ergebnis = Combo1.Text * int_anzahl
End If
 
 
End Sub
 
Private Sub Form_Load()
Combo1.AddItem "27,1"
Combo1.AddItem "27,1"
Combo1.AddItem "25,6"
Combo1.AddItem "28,9"
Combo1.AddItem "24,5"
Combo1.AddItem "24,5"
End Sub

MfG Sanni

* Phantasie ist wichtiger als Wissen, denn Wissen ist begrenzt *