Listbox filtern "größer/kleiner als" und Bereich

Hallo, ich habe eine Userfom mit einer Listbox und Filterfunktion. Die ComboBoxen enthalten die Werte vom Tabellenblatt. Ich habe nun 2 Probleme die ich nicht lösen kann:
1. Spalte C soll je nach Wahl des ToggleButtons "kleiner als" oder "größer als" gefiltert werden. In der ComboBox soll dann der jeweilige Wert angegeben werden d.h. wenn ToggleButton "kleiner als" und ComboBox "500" ist, sollen nur die Werte unter 500 angezeigt werden.
2. In Spalte D sind Beträge. Es sollen nur die Beträge angezeigt werden, welche zwischen den entsprechenden ComboBoxen eingetragen werden d.h. wenn ComboBox1 "100" und ComboBox2 "300" dann sollen nur die Werte zwischen 100 und 300 angezeigt werden.
Ich hoffe ich habe mir klar ausgedrückt und Ihr könnt mir helfen :) Vielen Dank
https://www.herber.de/bbs/user/110313.xlsm

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hi
da wirst du das ganze etwas umschreiben müssen.
die Wertevergleiche mit größer und kleiner sind mit dem Textvergleich LIKE nicht möglich.
du müsstest deine Prüfung nach diesem Schema aufbauen und eben unterschiedlich prüfen, je nach dem ob du einen Textinhalt vergleichen willst (cont1-cont2) oder einen Zahlenwert (cont3-Cont5)

Dim F As Long
Dim I As Long
F = IIf(ToggleButton1.Value, 1, -1)
For I = 2 To Tabelle1.Cells(Rows.Count, 1).End(xlUp).Row
If Tabelle1.Cells(I, 1) = Cont1.Text Or Cont1.ListIndex = -1 Then
If Tabelle1.Cells(I, 2) = Cont2.Text Or Cont2.ListIndex = -1 Then
If F * Tabelle1.Cells(I, 3) >= F * Val(Cont3.Text) Or Cont3.ListIndex = -1 Then
If Tabelle1.Cells(I, 4) >= Val(Cont4.Text) Or Cont4.ListIndex = -1 Then
If Tabelle1.Cells(I, 4)

das Or Cont1.ListIndex = -1 jeweils am Ende der Prüfung sorgt dafür, dass das Ergebnis immer WAHR ergibt, wenn für die Combobox nichts ausgewält wurde.
das Umschalten für Cont3 (größer oder kleiner) habe ich so gelöst, ich immer mit größer prüfe, aber die Zahlenwerte mit -1 multipliziere, wenn kleiner gefordert ist (zumindest dem Prinzip nach, da musst du nochmal genauer testen, wie du es haben willst
ansonsten musst du beachten, das in der Combobox immer Texte stehen, die erst in Zahlen gewandelt werden müssen (VAL), wenn sie mit Zellwerten verglichen werden.
Gruß Daniel

Public chk As Boolean Sub checkit() Dim ar(5) As Variant, objMyDic As Object, I As Long, F As Long, tempStr1 As String, tempStr2 _ As String, tempStr3 As String, IntC As Integer, row_ As Integer Dim ArCol(4) ArCol(0) = 1 ArCol(1) = 2 ArCol(2) = 3 ArCol(3) = 4 ArCol(4) = 4 Set objMyDic = CreateObject("Scripting.Dictionary") If chk = True Then ContListfeld.Clear For I = 1 To 5 If Controls("Cont" & I).Value = "" Then ar(I - 1) = "*" Else ar(I - 1) = Controls("Cont" & I) _ .Value tempStr1 = tempStr1 & ar(I - 1) & "/" Controls("Cont" & I).Clear Controls("Cont" & I) = IIf(ar(I - 1) = "*", "", ar(I - 1)) Next For IntC = 1 To 5 For I = 2 To Tabelle1.Cells(Rows.Count, 1).End(xlUp).Row tempStr2 = Tabelle1.Cells(I, "A") & "/" & Tabelle1.Cells(I, "B") & "/" & Tabelle1.Cells(I, " _ C") & "/" & Tabelle1.Cells(I, "D") & "/" & Tabelle1.Cells(I, "D") & "/" If Tabelle1.Cells(I, 1) = Cont1.Text Or Cont1.ListIndex = -1 Then If Tabelle1.Cells(I, 2) = Cont2.Text Or Cont2.ListIndex = -1 Then If F * Tabelle1.Cells(I, 3) >= F * Val(Cont3.Text) Or Cont3.ListIndex = -1 Then If Tabelle1.Cells(I, 4) >= Val(Cont4.Text) Or Cont4.ListIndex = -1 Then If Tabelle1.Cells(I, 4)

For I = 1 To 5 If Controls("Cont" & I).Value = "" Then ar(I - 1) = "*" Else ar(I - 1) = Controls("Cont" & I) _ _ .Value tempStr1 = tempStr1 & ar(I - 1) & "/" Controls("Cont" & I).Clear Controls("Cont" & I) = IIf(ar(I - 1) = "*", "", ar(I - 1)) Next

Sub checkit() Dim ar(5) As Variant, objMyDic As Object, I As Long, F As Long, tempStr1 As String, tempStr2 _ As String, tempStr3 As String, IntC As Integer, row_ As Integer Dim ArCol(4) ArCol(0) = 1 ArCol(1) = 2 ArCol(2) = 3 ArCol(3) = 4 ArCol(4) = 4 F = IIf(ToggleButton1.Value, 1, -1) Set objMyDic = CreateObject("Scripting.Dictionary") If chk = True Then ContListfeld.Clear For IntC = 1 To 5 For I = 2 To Tabelle1.Cells(Rows.Count, 1).End(xlUp).Row If Tabelle1.Cells(I, 1) = Cont1.Text Or Cont1.ListIndex = -1 Then If Tabelle1.Cells(I, 2) = Cont2.Text Or Cont2.ListIndex = -1 Then If F * Tabelle1.Cells(I, 3) >= F * Val(Cont3.Text) Or Cont3.ListIndex = -1 Then If Tabelle1.Cells(I, 4) >= Val(Cont4.Text) Or Cont4.ListIndex = -1 Then If Tabelle1.Cells(I, 4)

For Zeile = 2 to letzte Zeilen Prüfen ob Zeile in Listbox übernommen wird, wenn ja dann: Spaltenwerte zu Listbox hinzufügen For i = 1 to 5 Spaltenwerte zu Dictionary für comboboxen hinzufügen Next Prüfung Ende Next For i = 1 to 5 Comboboxen mit Dictionary-Inhalt füllen Next

Beliebteste Forumthreads (12 Monate)

Listbox filtern "größer/kleiner als" und Bereich

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

316 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Listbox filtern "größer/kleiner als" und Bereich

9 Beiträge zum Forumthread Beiträge zu diesem Forumthread

316 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread