Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema Userform
BildScreenshot zu Userform Userform-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema Label
BildScreenshot zu Label Label-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema TextBox
BildScreenshot zu TextBox TextBox-Seite mit Beispielarbeitsmappe aufrufen

VBA: Suche durch textbox, Ausgabe in Label


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



Beiträge aus dem Excel-Forum zum Thema "VBA: Suche durch textbox, Ausgabe in Label"