Excel und VBA: Formeln, Programmierung, Lösungen

ClassModule: frmSearch

Private Sub cmdCancel_Click()
   Unload Me
End Sub

Private Sub cmdSearch_Click()
   Dim iRow As Integer
   For iRow = 0 To lstData.ListCount - 1
      If lstData.List(iRow, 0) = txtSearch.Text Then
         lstData.Selected(iRow) = True
      End If
   Next iRow
End Sub

Private Sub UserForm_Click()

End Sub

Private Sub UserForm_Initialize()
   lstData.List = Range("A1").CurrentRegion.Value
End Sub
StandardModule: Modul1

Sub CallForm()
   frmSearch.Show
End Sub

    

Beiträge aus dem Excel-Forum zu den Themen Dialog und ListBox