Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Bei ComboBox-Auswahl Zellformel neu berechnen

Gruppe

UserForm

Problem

In UserForm-ComboBoxes sollen Werte aus den Spalten A und B gelistet werden. Bei einer ComboBox-Auswahl soll die Formel in Zelle F2 neu berechnet und der Wert in eine UserForm-TextBox übertragen werden.

Lösung
Geben Sie den Ereigniscode in das Klassenmodul der UserForm ein.

ClassModule: frmSetValue

Private Sub cboA_Change()
   Range("D2").Value = cboA.ListIndex + 1
   txtValue.Text = Range("F2").Value
End Sub

Private Sub cboB_Change()
   Range("E2").Value = cboB.ListIndex + 1
   txtValue.Text = Range("F2").Value
End Sub

Private Sub cmdOK_Click()
   Unload Me
End Sub

Private Sub UserForm_Initialize()
   cboA.List = Range("A1").CurrentRegion.Columns(1).Value
   cboB.List = Range("A1").CurrentRegion.Columns(2).Value
End Sub
StandardModule: Modul1

Sub CallForm()
   frmSetValue.Show
End Sub