Supportnet / Forum / Tabellenkalkulation

Hallo, ich habe eine combobox wo eine Auswahl von Zahlen 0 bis 14 zurverfügung stehen. Wird eine Zahl ausgewählt soll diese mit einer bestimmten Zelle multipliziert werden. Vielleicht kann mir eine/r helfen vielen Dank Gruß Rudi

Hallo Rudi,

MsgBox ComboBox1.value*3 oder
MsgBox cdbl(ComboBox1.value)*3

Gruß Hajo

hi all :-)

hier noch ein beispiel bezogen auf der steuerelement toolbox

gruss nighty

erstellung

' im VBA Extras-Verweise- MS Forms Object Library aktivieren !
Sub x()
   Dim cb As MSForms.ComboBox
   Set cb = ActiveSheet.OLEObjects.Add(ClassType:="Forms.ComboBox.1", Link:=False, _
      DisplayAsIcon:=False, Left:=98.25, Top:=87.75, Width:=111.75, Height:=22.5).Object
   cb.Name = "myCombo"
End Sub

befuellung

Sub fuellecmb()
   Dim cbDaten As MSForms.ComboBox
   Set cbDaten = ActiveSheet.OLEObjects("myCombo").Object
   cbDaten.Value = 0
   cbDaten.AddItem 1
   cbDaten.AddItem 2
   cbDaten.AddItem 3
End Sub

kontrolle

einzufuegen alt+f11/projektexplorer/DeineTabelle

Private Sub myCombo_Change()
Range("A1").Value = Range("A2").Value * myCombo.Value
End Sub

Hallo Hajo,

sorry habe mich falsch ausgedrückt.
Ich will den Wert der combobox mit einem Wert aus einem Feld multipliezieren, wobei das Ergebnis in ein Feld geschrieben wird.

wenn ich folgenden code verwende kann excel ihn nicht interpretieren.

Range("N34").FormulaLocal = "=combobox4.value*e3"

gruß Rudi

• Combobox in Excel mit Daten aus Tabellenblatt füllen. Ohne Dubletten!
• Eine Combobox abhängig von einer anderen programmieren
• Combobox in Excel
• Combobox - erste Zeile bei workbook_open
• UserForm ComboBox