---

Hallo IV Gemeinde

Hab da mal eine Frage zur Listbox, kann man in einer Listbox einen Auto-Filter einbauen so wie in Excel.

Ich lese Daten aus Excel in eine Listbox auf meinen Formular ein
das funktioniert soweit gut. Da es aber so viele Datensätze sind möchte ich diese filtern. Als Filter möchte ich den Inhalt der ersten 3 Spalten der Listbox nutzen.

Mein Ansatz was bis jetzt funktioniert

Code:
Dim oxls As Object
    Dim oxlsdoc As Excel.Workbook
    Set oxls = CreateObject("Excel.Application")
    Set oxlsdoc = oxls.Workbooks.Open("D:\Makro\ERP Nachschlagewerk_Version_49.xls")
    With LisArtiklelnummern
        .ColumnCount = 8
        .ColumnWidths = "3.0cm;1.0cm;2.8cm;2.0cm;3.0cm;3.2cm;3.5cm;15.0cm"
        .ColumnHeads = False
        .List = oxlsdoc.Sheets("Zusammenfassung").Range("B4:I262").value
        '.RowSource = oxlsdoc.Sheets("Zusammenfassung").Range("B2:H262")
    End With
    oxlsdoc.Close
    oxls.Quit

Kann mir einer einen Tipp geben?

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo

Du meinst bestimmt Zeile 1-3?

Mach doch
Listbox Zeile1 anklicken liest Bereich "a:b" aus Excel aus
Listbox Zeile2 anklicken liest Bereich "b:c" aus Excel aus
Listbox Zeile3 anklicken liest Bereich "d:e" aus Excel aus
jeweils eine verschiedene Subroutine

Gruß
Berno

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Artikelnummer.JPG

ich habe noch mal zu besseren Verständnis ein Bild angehängt.
Ich möchte je eine Combobox über den drei ersten Spalten platzieren
und mit deren Auswahl Ergebnis dann die Listeneinträge filtern.

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo

Das geht,
den Autofilter von Excel benutzen,
der Autofilter in Excel muß im Blatt gesetzt sein und dann von Inventor aus ansprechen

mit

Code:

---

.Range("A2:B36").AutoFilter Field:=1, Criteria1:="Blech"

---

und die Zellen dann mit

Code:

---

oxlsdoc.Sheets("Zusammenfassung").Range("B4:I262").SpecialCells(xlCellTypeVisible)

---

einlesen

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo BernoAn

es funktioniert so wie Du vorgeschlagen hast.

Problem ist aber da die Excelliste auf dem Server liegt und dort mehrere aus der Av ständigt Einträge vornehmen möcht ich doch die List nur einlesen und dann die Einträge in der Listbox filtern damit wäre ich unabhänig von der Liste auf dem Server.

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Volker,

Du kannst doch die gesamte Liste in ein Array einlesen.
Danach aus diesem Array die Zeilen, die den 3 Filtern entsprechen, in die Listbox übernehmen

------------------
Gruß Roland

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Roland

meine VBA Kenntnisse sind sehr bescheiden kannst Du mir
ein Beispiel geben wie ich das anstelle mit dem Array.

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Volker

Du musst nach dem Filtern nicht speichern.

Andere Möglichkeit:
Du kannst dir die Datei auch über Vba lokal kopieren

Gruß
Berno

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Artikelnummer.rar.txt

Hallo zusammen

Habe es mal so probiert aber kein Erfolg
Formular und Exceldatei sind angehängt

vielleicht hat ja einer eine Idee

Private Sub TextBox4_Change()
        Dim strSuchbegriff As String
        strSuche = Me!TextBox4.text
    Me!ListBox1.RowSource = "SELECT [2], [Material]" _
        &" FROM ListBox1" _
        "WHERE ListBox1" & strSuche & "*'"
End Sub

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo

Mit der frmArtikelnummer.frx kann man nichts anfangen.

*.frm wird benötigt

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Artikelnummer.rar.txt

Entschuldigung falsch geklickt

aber Danke für den Hinweis!

hier noch mal elles zusammen

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo IV Gemeinde

habe es jetzt soweit hinbekommen dass ich über die Textbox1 das Listenfeld anspringen kann leider kann ich nur die ersten 4 Einträge selektieren und ich muss in der Textbox die fortlaufende Zählernummer des Listenfeld angeben damit die entsprechende Zeile selektiert wird.
Wie muss ich den Code umschreiben damit ich im Textfeld einen Wortanfang bzw ein Wort eingeben kann und dann die Zeilen selektiert wird.
Vielleicht weiß einer von euch wie das geht.

hier mein bisheriger Code:

Private Sub TextBox1_Change()
    Dim i As Long
    Dim n As Long
    Dim Str As String
    Str = Me.TextBox1.text
    n = Me.LisBenennungen.ColumnCount
    For i = 0 To n - 1
        If Left(Me.LisBenennungen.List(i), Len(Str)) = Str Then
            Me.LisBenennungen.ListIndex = i
            Exit Sub
        End If
    Next i
End Sub

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Listbox1.rar.txt

Hier noch das Formular und die Tabelle aus der die Daten stammen

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Bei mir werden die Werte aus der Tabelle nicht eingelesen! Warum nicht?

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP