Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Fundstellen in UserForm listen

Gruppe

ListBox

Problem

Wie kann ich einen Bereich eines Tabellenblattes nach einem Teilbegriff durchsuchen lassen und die Zelladressen der Fundstellen in einem Listenfeld einer UserForm auflisten lassen?

Lösung
Geben Sie den den nachfolgenden Code in die genannten Module ein.

ClassModule: frmGefunden

Private Sub cmdContinue_Click()
    Unload Me
End Sub

StandardModule: basMain

Sub FundstellenSuchen()
   Dim iRow As Integer, iRowL As Integer
   Dim sSearch As String
   sSearch = InputBox(prompt:="Suchbegriff:")
   If sSearch = "" Then Exit Sub
   iRowL = Cells(Rows.Count, 1).End(xlUp).Row
   For iRow = 1 To iRowL
      If InStr(Cells(iRow, 1).vlaue, sSearch) Then
         frmGefunden.lstFound.AddItem Cells(iRow, 1).Value
      End If
   Next iRow
   frmGefunden.Show
End Sub