Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Wert aus ComboBox in TextBox, dann in Tabelle suchen

Gruppe

ComboBox

Problem

In einer 3-spaltigen ComboBox soll ein Wert ausgewählt werden. Dieser soll in eine TextBox übertragen und in Tabelle2 in Spalte 3 gesucht und markiert werden.

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

StandardModule: basMain

Sub CallForm()
   frmSuchen.Show
End Sub

ClassModule: frmSuchen

Private Sub cboSuchen_Change()
   txtSuchen.Text = cboSuchen.Value
End Sub

Private Sub cmdAbbrechen_Click()
   Unload Me
End Sub

Private Sub cmdSuchen_Click()
   Dim rng As Range
   If txtSuchen.Text = "" Then
      Beep
      MsgBox "Sie müssen in der ComboBox einen Suchbegriff auswählen!"
      Exit Sub
   End If
   Set rng = Worksheets("Tabelle2").Columns(3) _
      .Find(txtSuchen.Text, lookat:=xlWhole, LookIn:=xlValues)
   If Not rng Is Nothing Then
      Application.Goto rng, Scroll:=True
   Else
      MsgBox "Suchbegriff wurde nicht gefunden!"
   End If
   Unload Me
End Sub

Private Sub UserForm_Initialize()
   cboSuchen.List = Worksheets("Tabelle1") _
      .Range("A1").CurrentRegion.Value
End Sub