eigene textboxen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: eigene textboxen

27.06.2021 10:18:22

Hajo_Zi

AW: eigene textboxen

27.06.2021 10:23:28

onur

AW: eigene textboxen

27.06.2021 10:37:27

Thomas

Frage von Onur

27.06.2021 11:27:39

Onur

ups den Haken offen vergessen

27.06.2021 11:28:56

Thomas

ääh...

28.06.2021 19:51:56

Yal

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

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

eigene textboxen

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread