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


Guten Tag zusammen!
Bitte helft mir bei folgendem Problem:
In einer Userform habe ich eine ganze Reihe Textboxen, in die zum größten Teil Zahlen eingegeben werden.
Nun ist ja bekannt, dass beim Schreiben in Zellen der Inhalt der Textboxen als Text interpretiert wird. Mit der Anweisu...
Anzeige

Hallo!
Meine Arbeitsmappe hat vier Blätter, diese heißen: "Übersicht" "Hans", "Klaus" und "Karl".
In Zelle A1 von "Übersicht" steht entweder "Hans", "Klaus" oder "Karl".
In Zelle A2 soll das stehen, was in Zelle B16 des Blattes steht, das in Zelle A1 von "Übersicht" genannt ist.
...

Hallo
Ich habe über SVERWEIS mir Zellinhalte aus einer großen Tabelle ausgeben lassen.
Nun möchte ich aber bei der Ausgabe nicht den gesamten Zellinhalt mir anzeigen lassen, sondern nur die ersten 4 Ziffern.
Ist das möglich?
Vielen Dank für die Hilfe
MfG
Andreas
...
Anzeige

Hallo Excel-Profis!
Ich brauch wieder einmal eure Hilfe.
Im Archiv habe ich mir den nachfolgenden Code besorgt und ein wenig verändert.
Der Code schreibt den Inhalt des aktuellen Ordners und der Unterordner in die Spalte B einer Tabelle und verlinkt noch dazu die einzelnen Einträge...

Guten Abend zusammen,
wie kann man eine Autokorrektur in Excel abschalten? Ich muss WEI eintippen aber jedesmal wenn ich mit Enter bestätigen, es wechselt automatisch zu WIE.
Vielen Dank

Hallo,
kann ich bei einer msgbox die Schaltflächen auch selber benennen?
Ich würde gerne wissen, ob ein Wert ober- oder unterhalb eines Grenzwertes liegt und somit die Tasten "oberhalb" und "unterhalb" in der msgbox haben.
Lars
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige