ListBox, nur bestimmte Einträge anzeigen
20.12.2007 10:29:58
Gerhard
Meine ListBox bezieht Daten aus einer Tabelle wie folgt:
If ListBox1.Tag "" Then Exit Sub
txtLfdNr = ListBox1.List(ListBox1.ListIndex, 0)
txtLieferant = ListBox1.List(ListBox1.ListIndex, 2)
txtLieferantennr = ListBox1.List(ListBox1.ListIndex, 3)
txtHersteller = ListBox1.List(ListBox1.ListIndex, 4)
txtArtikelbezeichnung = ListBox1.List(ListBox1.ListIndex, 5)
txtArtikelnummer = ListBox1.List(ListBox1.ListIndex, 6)
txtGröße = ListBox1.List(ListBox1.ListIndex, 7)
txtSystemnr = ListBox1.List(ListBox1.ListIndex, 8)
txtMenge = ListBox1.List(ListBox1.ListIndex, 9)
txtEinheit = ListBox1.List(ListBox1.ListIndex, 10)
txtStückVPE = ListBox1.List(ListBox1.ListIndex, 11)
txtPreis = ListBox1.List(ListBox1.ListIndex, 12)
txtDatum = Format(ListBox1.List(ListBox1.ListIndex, 13), "DD.MM.YYYY")
'Format(txtGewLiefertermin, "DD.MM.YYYY")
txtAngefordert = ListBox1.List(ListBox1.ListIndex, 14)
txtProjekt = ListBox1.List(ListBox1.ListIndex, 15)
txtGewLiefertermin = Format(ListBox1.List(ListBox1.ListIndex, 16), "DD.MM.YYYY")
txtEmpfänger = ListBox1.List(ListBox1.ListIndex, 17)
txtAngebotsdatum = Format(ListBox1.List(ListBox1.ListIndex, 18), "DD.MM.YYYY")
txtAngebotsnummer = ListBox1.List(ListBox1.ListIndex, 19)
txtAnsprechpartner = ListBox1.List(ListBox1.ListIndex, 20)
txtAngebotAngefordert = ListBox1.List(ListBox1.ListIndex, 21)
txtAnmerkung = ListBox1.List(ListBox1.ListIndex, 22)
Jetzt steht in der 2 Spalte dieser Tabelle ein STATUS. (Dieser kann folgende Zustände haben: BESTELLEN; LIEFERUNG OFFEN; RECHNUNG OFFEN; ERLEDIGT)
Wenn ich nun möchte das die ListBox nur die Daten anzeigt die den Status BESTELLEN haben, wie muss ich da vor gehen?
Ne Möglichkeit wäre ja über einen gesetzten AutoFilter, gibt es hierfür aber noch andere Lösungen ohne AutoFilter? Wen ja welche und wie stelle ich das an?