Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Wert in ComboBox einlesen, suchen, editieren, ausgeben

Gruppe

ComboBox

Problem

Die Suchbegriffe aus Spalte F sollen in eine ComboBox eingelesen werden. Bei Auswahl des Begriffes in der ComboBox soll dieser in eine TextBox zum Editieren übernommen und bei Betätigung der OK-Schaltfläche in das Blatt zurückgeschrieben werden.

Lösung
Geben Sie den Ereigniscode in die nachfolgend genannten Module ein.

ClassModule: frmSuchen

Private Sub cboNamen_Change()
   Dim rng As Range
   Set rng = Columns(1).Find(cboNamen.Value, lookat:=xlPart, LookIn:=xlValues)
   If Not rng Is Nothing Then
      txtEdit.Text = rng.Text
      txtEdit.Tag = rng.Address
   End If
End Sub

Private Sub cmdCancel_Click()
   Unload Me
End Sub

Private Sub cmdOK_Click()
   Range(txtEdit.Tag).Value = txtEdit.Text
End Sub

Private Sub UserForm_Initialize()
   cboNamen.List = Range("F1").CurrentRegion.Value
   cboNamen.ListIndex = 0
End Sub

StandardModule: basMain

Sub CallForm()
   frmSuchen.Show
End Sub