VBA: Suche durch textbox, Ausgabe in Label

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
UserForm Label TextBox


Betrifft: VBA: Suche durch textbox, Ausgabe in Label
von: Dennis10ir
Geschrieben am: 10.08.2018 11:02:07

Hallo zusammen,
Ich versuche seit ner gefühlten Ewigkeit einen Code zu schreiben, wo ich in meiner Userform in einer Textform vom User ein Suchtext eingegeben werden kann. Daneben im Label steht dabei durchgehend "nicht gefunden". Sobald der User den Text fertig geschrieben hat und dieser in meiner vorgegebenen Range auftaucht, soll da stehen "Daten gefunden".
Meine Spezifischen Angaben:
TextBox: Textbox1
Label: Label6
Worksheet: Endtabelle
Range: A:A
Kann mir da einer helfen?

Betrifft: AW: VBA: Suche durch textbox, Ausgabe in Label
von: Dennis10ir
Geschrieben am: 10.08.2018 11:13:32
Okay konnte es doch selbst lösen...
Für alle die es auch wollen, ich habe folgenden Code geschrieben, der funktioniert:

Private Sub TextBox1_Change()
Dim rng As Range
Set rng = Worksheets("Endtabelle").Range("A:A").Find(TextBox1.Text)
If rng Is Nothing Then
Label6.Caption = "Keine Daten gefunden!"
Else
Label6.Caption = "Daten gefunden!"
End If
End Sub


Betrifft: AW: VBA: Suche durch textbox, Ausgabe in Label
von: Dennis10ir
Geschrieben am: 10.08.2018 11:15:20
Doch nicht vollständig gelöst...
Ich arbeite in der Spalte A (in der ich ja auch suche) mit Formeln.
Durch die Formeln findet die Suchfunktion meine Einträge leider nicht.
Wie kann ich das umgehen?

Betrifft: AW: VBA: Suche durch textbox, Ausgabe in Label
von: Dennis10ir
Geschrieben am: 10.08.2018 11:15:21
Doch nicht vollständig gelöst...
Ich arbeite in der Spalte A (in der ich ja auch suche) mit Formeln.
Durch die Formeln findet die Suchfunktion meine Einträge leider nicht.
Wie kann ich das umgehen?

Betrifft: AW: VBA: Suche durch textbox, Ausgabe in Label
von: Dennis10ir
Geschrieben am: 10.08.2018 11:24:40
Vielleicht sollte ich doch nicht so schnell fragen :D
Dann führe ich meinen Monolog mal weiter:
Folgender Code behebt mein Problem:

Private Sub TextBox1_Change()
Dim rng As Range
Set rng = Worksheets("Endtabelle").Range("A:A").Find(What:=TextBox1.Text, LookIn:=xlValues,  _
LookAt:=xlWhole, MatchCase:=False, Matchbyte:=False)
If rng Is Nothing Then
Label6.Caption = "Keine Daten gefunden!"
Else
Label6.Caption = "Daten gefunden!"
End If
End Sub


Excel-Beispiele zum Thema "VBA: Suche durch textbox, Ausgabe in Label"