Frage von Onur
27.06.2021 11:27:39
Onur
Hallo Onur,
ich habe deine Frage garnicht beantwortet.
" Bei "VBA Nein" wir ZEIGEN wohl nix bringen - Du meinst wohl "Kann das Jemand für mich erledigen?""
Nein ich möchte nicht das ihr das für mich erledigt. Ich möchte dies dann gern allein in meinem Projekt einbauen.
Dazu habe ich aber nur eine Chance wenn ich weiss wie .
Meine derzeitigen Überlegungen sind.
Ausgelöst wird der Listboxfilter wahrscheinlich durch das Klassenmodul "clsTextBoxFilterEvent".
Aber
Private Sub TextBox1_Change()
' fraFiltern.Visible = tglFiltern.Value
Call LST_Filter
End Sub
funktioniert nicht. Wahrscheinlich muss ich diesen Befehl noch sagen welche Spalte gefiltert werden muss.
Nur wie.
Mein VBA Status VBA- Nein habe ich gewählt da ich mit der Zeit zwar in der Lage bin, einige Macros anzupassen aber mehr auch nicht.
Bei diesen Problem stehe ich aber völlig auf den Schlauch.
Ich denke das läuft so ab
Beim Starten der userform werden die benutzten Spalten gezählt. Anhand dieser Zahl wird die Richtige Anzahl der Textboxen erstellt und irgend wie auch gleich festgelegt das z.B die Textbox1 die erste Spalte filtern soll.
Womöglich ist dies
Private Sub tglFiltern_Change()
Dim ctl As Control
fraFiltern.Visible = tglFiltern.Value
If Not tglFiltern Then
blnEventLock = True
For Each ctl In fraFiltern.Controls
If TypeName(ctl) = "TextBox" Then ctl.Text = ""
Next
blnEventLock = False
End If
End Sub
dann die Prozedur den Listboxfilter auszulösen.
Aber mit
Private Sub TextBox1_Change()
Dim ctl As Control
fraFiltern.Visible = tglFiltern.Value
If Not tglFiltern Then
blnEventLock = True
For Each ctl In fraFiltern.Controls
If TypeName(ctl) = "TextBox" Then ctl.Text = ""
Next
blnEventLock = False
End If
End Sub
komme ich auch nicht zum Ziel. ( irgendwie auch für mich logisch da ich hier keine Spalte benenne)
Ansonsten habe ich noch versucht verschiedene " Call "
mit dem TextBox1_Change() Event
auszulösen.
ich habe auch schon versucht, die Funktionen
Function Suchen_CT
Function Suchen
anzusprechen. Jedoch sind alle Versuche fehlgeschlagen.
Kann mir jemand zeigen wie es gehen könnte?
Wie ich mit einer selbst angelegten Textbox die Listbox filtern könnte ( z.B Kriterium aus Textbox die Spalte 3 )
mfg thomas
mfg thomas
