VBA: Listbox nach Kriterien füllen

[Steffl]

Hallo Joe,

dann ändere die Codezeile von snb so um

Code:

If ListBox1.List(j, 4) >= Kriterium1 Or ListBox1.List(j, 5) <= Kriterium2 Then ListBox1.RemoveItem j

ich habe hier nur kleiner in größer und größer in kleiner umgedreht bzw. müsste es so auch gehen.

Code:

If ListBox1.List(j, 4) <= Kriterium1 Or ListBox1.List(j, 5) >= Kriterium2 Then
Else
 ListBox1.RemoveItem j
End If

Ich hoffe, Du siehst jetzt den Logikfehler, denn Du gehabt hast.

[Joe]

Hallo Stefan,

Die Code's funktionieren nicht ganz richtig.
Die Liste zeigt nicht alle an die passen.
Ich glaub der Code vergleicht die 6 und 7 Spalte auch...

Probiers mal in der Datei bitte aus, ich weiß echt nicht mehr weiter... 


Gruß Joe

[Steffl]

Hallo Joe,

If ListBox1.List(j, 2) >= Kriterium1 Or ListBox1.List(j, 3) <= Kriterium2 Then ListBox1.RemoveItem j

bei einer Listbox beginnt die Spaltenzählung bei 0 und deine Spalte B in der Tabelle ist somit die Spalte 0 und die Spalte D in der Tabelle die Spalte 2 in der Listbox.

[Joe]

Hallo Stefan,

ich bin dir unendlich Dankbar, Danke Danke Danke.

Jetzt macht das alles Sinn!

Gruß Joe