Thema: Element in ListBox in Abhängigkeit einer TextBoxeingabe auswählen

ClassModule: frmSuchen

Private Sub cmdWeiter_Click()
   Unload Me
End Sub

Private Sub txtSuchen_Change()
   Dim iCounter As Integer
   For iCounter = 0 To lstSuchen.ListCount - 1
      If UCase(Left(lstSuchen.List(iCounter), _
         Len(txtSuchen.Text))) = UCase(txtSuchen.Text) Then
         lstSuchen.Selected(iCounter) = True
         Exit Sub
      End If
   Next iCounter
End Sub

Private Sub UserForm_Initialize()
   Dim iCounter As Integer
   For iCounter = 1 To 12
      lstSuchen.AddItem Format( _
         DateSerial(1, iCounter, 1), "mmmm")
   Next iCounter
End Sub

StandardModule: basMain

Sub CallForm()
   frmSuchen.Show
End Sub

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