Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: VBA: Suche durch textbox, Ausgabe in Label

VBA: Suche durch textbox, Ausgabe in Label
10.08.2018 11:02:07
Dennis10ir
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?
Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA: Suche durch textbox, Ausgabe in Label
10.08.2018 11:13:32
Dennis10ir
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

Anzeige
AW: VBA: Suche durch textbox, Ausgabe in Label
10.08.2018 11:15:20
Dennis10ir
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?
AW: VBA: Suche durch textbox, Ausgabe in Label
10.08.2018 11:15:21
Dennis10ir
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?
Anzeige
AW: VBA: Suche durch textbox, Ausgabe in Label
10.08.2018 11:24:40
Dennis10ir
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

Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige