Werte umwandeln

hallo zusammen,
ich brauche hilfe !

ich habe ein drop-down-menü, dass ein skala (++, +, 0, -, --) besitzt. die selektierten werte werden aber standardmässig durchnummeriert ( 1,2,3,4,5), was sie aber nicht machen sollen.
wie kann ich eine multiplikation erreichen, dass „1“ z.b. mit 80 und „2“ mit 34 multipliziert wird.
die ergebnisse werden dann in einer andere zelle angezeigt.
alles verstanden - ich bin gespannt
schönen gruss
daniel

Moin Daniel,

im Gegensatz zum „richtigen“ VB, kennt das MS-Forms Kombinationsfeld die Eigenschaft UserData nicht.
Ein Workaround mit einem „eigenen“ Array deiner Koeffizienten:

'in einem "Modul"
Public koeff as Variant

in deinem Makro oder UserForm muss dass Array initialisiert werden

Private Sub UserForm\_Initialize()
koeff = Array(80,34,15,3,1)
'...
End Sub

dann kannst du berechnen:

Private Sub ComboBox1\_Change()
Dim wert As Integer
wert = ActiveWorkSheet.Cells(1,1) \* koeff(ComboBox1.ListIndex)
' oder so ähnlich...
End Sub

Probier’s mal…

Cheers!
Hawky