Gruppe
Dialog
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?
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