Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Werte aus UserForm-ComboBox suchen und Fundstelle kopieren

Gruppe

ComboBox

Problem

Wie kann ich die Werte aus Spalte A in eine UserForm-ComboBox übernehmen, den ausgewählten Wert in der Tapelle suchen und die Fundstelle in ein zweites Tabellenblatt kopieren?

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

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
   Dim iRow As Integer
   Application.ScreenUpdating = False
   Set rng = Columns(1).Find( _
      what:=txtSuchen.Text, _
      lookat:=xlPart, LookIn:=xlValues)
   If Not rng Is Nothing Then
      With Worksheets("Target")
         If IsEmpty(.Range("A1")) Then
            iRow = 1
         Else
            iRow = .Cells(Rows.Count, 1).End(xlUp).Row + 1
         End If
         Rows(rng.Row).Copy .Rows(iRow)
      End With
   Else
      MsgBox "Suchbegriff wurde nicht gefunden!"
   End If
   Application.CutCopyMode = False
   Range("A1").Select
   Unload Me
End Sub

Private Sub UserForm_Initialize()
   cboSuchen.List = _
      Range("A1").CurrentRegion.Columns(1).Value
   cboSuchen.ListIndex = 0
End Sub

StandardModule: Modul1

Sub CallForm()
   frmSuchen.Show
End Sub