Gruppe
Dialog
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.
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