Datensätze automatisch ausblenden - Die ZWEITE

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Private Sub TextBox1_Change() Dim Sb As String Sb = Tabelle1.TextBox1.Text If Sb "" Then Range("A36").autofilter Field:=8, Criteria1:="=*" & Sb & "*", Operator:=xlAnd Else If ActiveSheet.FilterMode Then ActiveSheet.ShowAllData End If End Sub

Hallo Gerd
Danke für deinen Input. Irgendwie verstehe ich das Ganze immer noch nicht.
Also: ich habe 9 Tabellenblätter. Dabei will ich im ersten und im dritten suchen können.
Das erste heisst: "Kontenplan".
Die "linked cell" ist in A2 (Eigenschaften der Textbox), Titelzeile und gesetzte Autofilter Zeile 4, der erste Datensatz kommt in Zeile 5, die Hilfsspalte (Zusammenfassung aller Spalten einer Zeile) ist in Spalte K.
Der Code lautet:

Private Sub TextBox1_Change()
Dim Sb As String
Sb = Tabelle1.TextBox1.Text
If Sb  "" Then
Range("A5").AutoFilter Field:=11, Criteria1:="=*" & Sb & "*", Operator:=xlAnd
Else
If ActiveSheet.FilterMode Then ActiveSheet.ShowAllData
End If
End Sub

Das dritte Tabellenblatt heisst "Protokoll-Reg."
Die "linked cell" ist in C2, Titelzeile und gesetzte Autofilter Zeile 3, der erste Datensatz kommt in Zeile 4, die Hilfsspalte ist ebenfalls in K.
Der Code lautet:

Private Sub TextBox1_Change()
Dim Sb As String
Sb = Tabelle1.TextBox1.Text
If Sb  "" Then
Range("C4").AutoFilter Field:=11, Criteria1:="=*" & Sb & "*", Operator:=xlAnd
Else
If ActiveSheet.FilterMode Then ActiveSheet.ShowAllData
End If
End Sub

Was ich jetzt festgestellt habe:
Das TabBlatt Protokoll ist 100% vom Kontenplan abhängig, nicht aber umgekehrt. Steht in Kontenplan etwas drin, kann ich bei Protokoll angeben, was ich will, es nimmt die Auswahl von Kontenplan. Steht in Kontenplan aber nichts, ist in Protokoll tote Hose
Wie mache ich diese beiden Suchmodi bloss voneinander unabhängig?
Danke für die Hilfe
Gruss Thomas

Hallo Thomas,
in den beiden Codes für die Textboxen steht immer noch als 3. Zeile der gleiche Code:

Sb = Tabelle1.TextBox1.Text

Also wird bei der Suche in beiden Tabellen auf die Textbox1 in "Tabelle1" zugegriffen. Da du im Code mit dem Codenamen der Tabelle arbeitest ist für uns nicht erkennbar, welche Tabelle wirklich zugordnet ist.
Du kannst nur im VBA-Editor-Projektexplorer erkennen welche, da dort in Klammern hinter dem Code-Namen der öffentliche Name erkennbar ist. Der öffentliche Name ist der, der in Excel auf dem Register steht.
Wenn du unbedingt den Code-Namen verwenden willst, dann muss du für Blatt "Protokoll-Reg." statt "Tabelle1" auch den entsprechenden Code-Namen einsetzen. Ich vermute mal "Tabelle3", aber das muss du im VBA-Editor prüfen.
Deshalb auch mein Vorschlag, "Tabelle1" durch "Me" zu ersetzen, damit die Objektzuordnung korrekt ist, wenn auf Steuerelemente in der zum Code gehörenden Tabelle zugegriffen werden soll. So gibt es auch keine Probleme, wenn Tabellen kopiert werden oder Code von einem Tabellen-Modul in ein anderes.
Gruß
Franz

Private Sub TextBox1_Change() Dim Sb As String Sb Me.TextBox1.Text If Sb "" Then Range("C4").AutoFilter Field:=11, Criteria1:="=*" & Sb & "*", Operator:=xlAnd Else If ActiveSheet.FilterMode Then ActiveSheet.ShowAllData End If End Sub

Private Sub TextBox1_Change() Dim Sb As String Sb= Me.TextBox1.Text If Sb "" Then Range("C4").AutoFilter Field:=11, Criteria1:="=*" & Sb & "*", Operator:=xlAnd Else If ActiveSheet.FilterMode Then ActiveSheet.ShowAllData End If End Sub

Beliebteste Forumthreads (12 Monate)

Datensätze automatisch ausblenden - Die ZWEITE

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Datensätze automatisch ausblenden - Die ZWEITE

9 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)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread