Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1104to1108
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
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

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

299 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige