Gruppen

Top Gruppen: Windows 7; Windows Vista; Windows XP; Textverarbeitung; Excel; DSL; Internet Browser; E-Mail/Outlook
Betriebsysteme: Windows classik; Linux; BS-Sonstige
Software: Datenbanken; Bildbearbeitung; Audio/mp3/Video; Security/Viren; SW-Sonstige
Hardware: Mainboard/CPU; Grafikkarten; Peripherie; Laptop/Notebook; HW-Sonstiges
Netzwerk: Telefon,ISDN,Modem; W-Lan; NW-Sonstiges
Programmierung: PHP,ASP,Perl...; Java,C++...; Webseiten/HTML
Sonstiges: PC-Sonstiges; Plauderecke; SN Intern; Test

/ Forum / Tabellenkalkulation

Tabellenkalkulation

Fragevon rudie81 vom 02.10.2019, 14:15 Options

Berechnung mit einer combobox

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

Antwort schreiben

Antwort 1 von Hajo_Zi vom 02.10.2019, 14:38 Options

Hallo Rudi,

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

Gruß Hajo

Antwort 2 von nighty vom 02.10.2019, 15:18 Options

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

Antwort 3 von rudie81 vom 02.10.2019, 15:23 Options

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

Hinweis

Diese Frage ist schon etwas älter, Sie können daher nicht mehr auf sie antworten. Sollte Ihre Frage noch nicht gelöst sein, stellen Sie einfach eine neue Frage im Forum..

Neue Einträge

Tipp einschicken

News einschicken