ListBox mit Suchfeld speichert falsch

Private Sub UserForm_Initialize()

    ListBoxBearbeiten1

    txtFilterName.SetFocus

End Sub

 

Private Sub ListBoxBearbeiten1()

txtFilterName_Change

End Sub



Private Sub txtFilterName_Change()

Dim LETZTEZEILE

Dim arrWerte As Variant

Dim FilterWert As Variant

LETZTEZEILE = ActiveSheet.Cells(Rows.Count, 2).End(xlUp).Row



    With Me.ListBoxBearbeiten

        .RowSource = ""

        .Clear

        .ColumnCount = 47

        .ColumnWidths = "50;10;22;20"

        .ColumnHeads = False

    End With

    

    For ZEILE = 2 To LETZTEZEILE

        If InStr(1, LCase(ActiveSheet.Cells(ZEILE, 2).Value), LCase(Me.txtFilterName.Value)) > 0 Then

            'ListBoxDaten befuellen

             Me.ListBoxBearbeiten.AddItem ActiveSheet.Cells(ZEILE, 2).Value

             Me.ListBoxBearbeiten.List(Me.ListBoxBearbeiten.ListCount - 1, 4) = ZEILE

        End If

    Next ZEILE



End Sub



Private Sub ListBoxBearbeiten_Click()

     

    TextBoxID.Text = ActiveSheet.Range("A" & ListBoxBearbeiten.List(ListBoxBearbeiten.ListIndex, 4)).Value

    txtDatum.Text = ActiveSheet.Range("B" & ListBoxBearbeiten.List(ListBoxBearbeiten.ListIndex, 4)).Value



End Sub



Private Sub DatenBuchen()



    pboNOT = True



    shÜbersicht.Cells(ListBoxBearbeiten.ListIndex + 2, 2).Value = txtDatum.Text

    shÜbersicht.Cells(ListBoxBearbeiten.ListIndex + 2, 3).Value = ComboBoxKunde.Text



 pboNOT = False

Dim Antwort As Integer

Antwort = MsgBox("Änderungen wurden gespeichert", vbOKOnly)

End Sub