Listbox mit Eingabe füllen

Private Sub UserForm_Initialize()



    Dim rng As Range

    Set rng = Tabelle1.Range("A1").CurrentRegion

    Set rng = rng.Offset(1, 0).Resize(rng.Rows.Count - 1)

    

    With Me.ListBox1

        .RowSource = rng.Address(external:=True)

        .ColumnCount = rng.Columns.Count

        .ListIndex = 0

    End With



End Sub

Private Sub TextBox1_Change()

    

    Dim rng As Range

    Dim Zeile As Integer

    Dim LetzteZeile As Integer

    

    LetzteZeile = Tabelle1.Cells(Rows.Count, 1).End(xlUp).Row

    

    For i = 2 To LetzteZeile

        If InStr(1, LCase(Tabelle1.Cells(i, 1).Value), LCase(Me.TextBox1.Value)) > 0 Then

            Set rng = Tabelle1.Range("A" & i).Rows

            With Me.ListBox1

                .RowSource = rng.Address

            End With

        End If

    Next i

    

End Sub