Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Textbox Inhalte prüfen

Textbox Inhalte prüfen
Urmila
Hallo alle zusammen, guten Morgen
ich habe ein Textbox und will dass es geprüft wird ob bestimmte Worte im Textbox auftauchen, wenn ja, soll eine MsgBox erscheinen.
Also z.B ...Januar... oder ...Gelb... oder ...Sommer..., egal wo es auftaucht und Groß-Kleinschreibung sollen keine Rollen spielen
Danke für Eure Hilfe und LG
Urmila
Anzeige

9
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Textbox Inhalte prüfen
24.09.2009 09:50:54
David
Hallo Urmila.
Als Muster:
Sub test()
Dim a, b
Dim vorh 'As Boolean
a = LCase(TextBox1.Value)
b = LCase("sommer")
vorh = InStr(1, a, b)
If vorh  0 Then MsgBox "Vorhanden!" Else MsgBox "Nicht vorhanden!"
End Sub

Gruß
David
AW: Textbox Inhalte prüfen
24.09.2009 09:54:33
Urmila
Hallo David,
danke erstmals
aber was wenn ich mehrere Suchbegriffe habe außer "sommer", wie würde ich das hier einbinden können?
Danke und LG
Urmila
Anzeige
AW: Textbox Inhalte prüfen
24.09.2009 10:04:00
Tino
Hallo,
vielleicht so.
Dim ArraySuchbegriffe()
Dim varPos
'Deine Suchbegriffe
ArraySuchbegriffe = Array("Sommer", "Winter", "Herbst", "Frühling")
'Suche Position
varPos = Application.Match(TextBox1, ArraySuchbegriffe, 0)
If IsNumeric(varPos) Then
MsgBox "gefunden '" & ArraySuchbegriffe(varPos - 1) & "'"
Else
MsgBox "nix gefunden"
End If
Gruß Tino
Anzeige
AW: Textbox Inhalte prüfen
24.09.2009 10:04:37
David
z. bsp. so:
dim b(5)
b(1) = "..."
b(2) = "..."
...
b(5) = "..."
für die Def. der Suchbegriffe. Ggf. kannst du die auch per cells(x,y) aus irgendwelchen Tabellenzellen holen.
Anschließend dann die Prüfroutine mit einer Schleife umgeben:
For i=1 to 5
vorh = instr(1,a,b(i))
If vorh...
Next
Statt der MsgBox kannst du natürlich auch anders bei einem Treffer verfahren, z.bsp. weiteren Code abarbeiten, eine Variable füllen etc.
Das war aber nicht deine Frage.
Gruß
David
Anzeige
Danke euch beiden vielmaaals :-)
24.09.2009 10:26:27
Urmila
Urmila
AW: Textbox Inhalte prüfen
24.09.2009 10:28:27
Gerd
Hallo Tino,
da fehlt noch etwas.
Hallo Urmila,
vor TextBox1 ggf. noch den Container schreiben,
UserForm1.TextBox1.Text oder Worksheets("Tabelle1").TextBox1.Text
u. den Call - Aufruf dort einbinden, wo du ihn benötigst.
Sub Teststart()
Call Meldung(TextBox1.Text, Array("gelb", "Januar", "Sommer"))
End Sub
Sub Meldung(strObjektText As String, vntSuchbegriffe As Variant)
Dim strCheck As String, intZ As Integer
For intZ = 0 To UBound(vntSuchbegriffe)
strCheck = strCheck & IIf(InStr(1, LCase(strObjektText), LCase(vntSuchbegriffe(intZ))) > 0,  _
vbLf & vntSuchbegriffe(intZ), "")
Next
If Len(strCheck) > 0 Then MsgBox strCheck, , "Gefunden!"
End Sub
Gruß Gerd
Anzeige
@Gerd
24.09.2009 10:35:35
Tino
Hallo,
da fehlt noch etwas.
Wie meinst Du?
Gruß Tino
AW: @Tino
24.09.2009 16:04:21
Gerd
Hallo Tino,
vergesse es. Wenn die Fragestellerin nur ein Wort in die Textbox schreibt/schreiben lässt,
ist es in Ordnung.
Gruß Gerd
AW: Textbox Inhalte prüfen
25.09.2009 13:09:57
Urmila
Hallo Gerd,
die Codes von Tino und David habe ich bei mir angepasst und es klappte ja alles so wie gewünscht, aber danke dir auch....
sorry kam gestern net mehr dazu, hab vorhind versucht, aber ich lass so wie zuvor...
Danke und LG
Urmila :-)
Anzeige
;

Forumthreads zu verwandten Themen

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