VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Bei ComboBox-Auswahl Zellformel neu berechnen

Gruppe

Dialog

Bereich

UserForm

Thema

Bei ComboBox-Auswahl Zellformel neu berechnen

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

    


Beiträge aus dem Excel-Forum zu den Themen Dialog und UserForm