AW: Listbox Filter Suchen
15.01.2016 20:00:37
Uwe
Der Fehler kommt in der FundZeile.
"FundZeile = .ListBox1.List(.ListBox1.ListIndex, 13)"
Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
'Luschi - Objektzuordnung wurde vervollständigt
With Me
.cboModell.Value = .ListBox1.List(Me.ListBox1.ListIndex, 0)
.cboArt.Value = .ListBox1.List(Me.ListBox1.ListIndex, 1)
.txtFahrgestellnummer.Value = .ListBox1.List(Me.ListBox1.ListIndex, 2)
.txtKunde.Value = .ListBox1.List(.ListBox1.ListIndex, 3)
.txtEmotive.Value = .ListBox1.List(.ListBox1.ListIndex, 4)
.cboLagerwagen.Value = .ListBox1.List(.ListBox1.ListIndex, 5)
.cboFahrzeugfarbe.Value = .ListBox1.List(.ListBox1.ListIndex, 6)
.txtBezeichnung.Value = .ListBox1.List(.ListBox1.ListIndex, 7)
.txtBemerkung.Value = .ListBox1.List(.ListBox1.ListIndex, 8)
.txtDatumBestell.Value = .ListBox1.List(.ListBox1.ListIndex, 9)
.txtDatumLieferung.Value = .ListBox1.List(.ListBox1.ListIndex, 10)
.txtDatumZulassung.Value = .ListBox1.List(.ListBox1.ListIndex, 11)
.txtKennzeichen.Value = .ListBox1.List(.ListBox1.ListIndex, 12)
FundZeile = .ListBox1.List(.ListBox1.ListIndex, 13)
.CommandButton3.Enabled = True
.CommandButton4.Enabled = True
.cmdEingabe.Enabled = False
.MultiPage1.Value = 0
End With
End Sub