Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
608to612
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
608to612
608to612
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Suchtext auf Listbox und hinzufügen

Suchtext auf Listbox und hinzufügen
11.05.2005 12:24:31
Roli
hallo Leute,
ich habe ein großes Problem. Meine Auftragsliste ist soweit ganz gut, aber durch die Suchfunktion komm ich ganz durcheinander.
https://www.herber.de/bbs/user/22414.xls
Zur Beschreibung meines Sheets: Unter Auftrag erstellen kann ich ein beliebiges Modell (alle Daten werden aus der Tabelle2 eingelesen) in der Listbox auswählen und, die dazugehörigen Bezeichnungen werden angegeben. Farbe muss ich selber auswählen (alle aus der gleichen Zeile in der Tabelle2). Nach dem Hinzufügen-Klick fügt sich das in die Tabelle ein.
Dazu habe ich folgende Probleme mit dem neuen eingebauten Suche-Textbox, die ich leider nicht bewältigen konnte.
1) Wenn ich den richtigen Artikel eingegeben habe, sollte es automatisch passieren, dass auch der richtige und die dazu Artikelnummer + Preis usw. (aus der gleichen Zeile in der Tabelle2) angezeigt werden. Farbauswahl ist wie gehabt über die Combobox manuell auszuführen bzw. die Größen dazu einzugeben und danach hinzufügen.
2) WICHTIG! Ich weiß nicht, wo der Fehler liegt, aber auch, nachdem ich manche Artikeln über den Suchtext eingegeben habe, werden nicht die richtigen Bezeichnungen dazu angezeigt. Er zeigt meistens nur die Werte aus der Zeile 3 (Modell Aida). Die Auswahl in der Listbox ohne dem Suchtext funktioniert einwandfrei
3) Wenn der Textbox leer ist, sollte die ganze Liste wieder angezeigt werden.
4) Nach dem ich ein bestimmtes Modell, die Farbe, die Mengen eingegeben habe und dann hinzugefügt habe, dann MUSS die ListBox komplett angezeigt werden bzw. auch Artikelnummer + Preis usw. müssen leer sein um Doppeleingaben zu verhindern.
Bitte helft mir bei der Fertigstellung.
Liebe Grüße
Roland

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Suchtext auf Listbox und hinzufügen
11.05.2005 15:34:33
MichaV
Hi,
die Werte in der Listbox sind nicht mehr, wie sie in Tabelle 2 stehen, also geht
j = ListBox1.ListIndex + 3
nicht mehr. Schreibe anstelle:


      
Dim t
 
Set t = Sheets("Tabelle2").Range("A:A").Find(What:=ListBox1.Text, LookIn:=xlValues, _
        LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=
True)
If t Is Nothing Then Exit Sub
j = t.Row
Set t = Nothing 

Wenn Du


      
If wks1.Cells(i, 1).Value Like TextBox1.Text Then 

austauschst gegen


      
If UCase(Left(wks1.Cells(i, 1).Text, Len(TextBox1.Text))) = UCase(TextBox1.Text) Then 

,dann wird Deine Suchfunktion komfortabler.
https://www.herber.de/bbs/user/22445.xls
Gruß- Micha
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige