Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1104to1108
1104to1108
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Textbox Inhalte prüfen

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

Userform Textboxinhalte in Zellen schreiben
Gerd

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...
11.08.2008 14:33:59
Thread-ID: 1000866
3 Beiträge
Userform Textboxinhalte in Zellen schreiben
Gerd

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...
11.08.2008 14:34:08
Thread-ID: 1000867
5 Beiträge
Bezug auf Blatt abhängig von Zellinhalt
Zellinhalt

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.
...
11.08.2008 16:55:00
Thread-ID: 1000917
3 Beiträge
Ausgabe von Teilen des Zellinhaltes
Teilen

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
...
14.08.2008 08:45:54
Thread-ID: 1001719
4 Beiträge
Doppelte Inhalte löschen
Oliver

Hallo
in einer Liste von Buchungen befinden sich für einzelne Kostenstellen mehrere Buchungen.
Ich möchte nun aus dieser Liste eine Liste erstellen, in welcher alle Kostenstellen nur einmal vorkommen (also die doppelten Einträge löschen).
Mit dieser Liste will ich später dann die Su...
15.08.2008 09:56:06
Thread-ID: 1002057
4 Beiträge
Ordnerinhalt in Tabelle schreiben
Johann

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...
15.08.2008 17:19:52
Thread-ID: 1002256
8 Beiträge
Anzeige
Autokorrektur abschalten
Pia

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
20.08.2008 21:03:44
Thread-ID: 1003317
7 Beiträge
Belegung Schaltfläche msgbox
Lars

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
21.08.2008 14:10:31
Thread-ID: 1003485
4 Beiträge
Pro Passwort eine Zeile freischalten...
amina

Hallo alle zusammen,
gibt es eine Möglichkeit in Excel pro Passwort eine Zeile freizuschalten.
Also z.b hab ich 20 Leute
1. Person = Zeile 1
2. Person = Zeile 2
usw.
und jede Person darf nur jeweils seine Zeile bearbeiten und die anderen bleiben gesperrt also so ähnlich...
21.08.2008 15:04:36
Thread-ID: 1003520
7 Beiträge
MSGBox wenn Zelleninhalt geleert wurde?!
Tom

Hallo!
Ist es denn eigentlich möglich zu überprüfen ob eine Zelle gerade geleert wurde?
Hintergrund ist, dass ich gern sicherstellen möchte, dass der User wirklich den Zelleninhalt löschen wollte.
Ich würde gern eine Mitteilung erscheinen lassen wenn eine Zelle vom Inhalt her gelösc...
26.08.2008 15:07:01
Thread-ID: 1004826
6 Beiträge
Anzeige
Formatierung Inhalt Kombinationsfeld
Matthias

Guten Morgen Excel-Welt,
mein hoffentlich kleines Problem:
Über die Symbolleiste Formular füge ich ein Kombinationfeld ein.
Der im Listenbereich def. Text (2 Wörter) erscheint bei Auswahl über das Kombinationsfeld sehr klein und fast nicht lesbar. Wie komme ich an die Formatierung d...
27.08.2008 07:34:00
Thread-ID: 1004953
4 Beiträge
Makro, das die Spaltenreihenfolge umdreht
Maxine

Hallo zusammen,
ich benötige ein Makro, dass mir in einem Sheet die Spalten in umgekehrter Reihenfolge ordnet. Also statt A B C D, sollen die Spalten in D C B A geordnet werden.
Der Inhalt und die Reihenfolge der Zeilen soll je Spalte erhalten bleiben.
Könnt ihr mir helfen?
V...
27.08.2008 09:47:23
Thread-ID: 1004990
3 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige