Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1400to1404
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
Inhaltsverzeichnis

Nach Text durchsuchen - String nach String

Nach Text durchsuchen - String nach String
09.01.2015 13:51:17
Kevin
Hallo liebes Forum,
ich habe ein Problem, welches vielleicht gar kein großes Problem ist.
Undzwar habe ich in in einer Variable einen Text als String stehen.
In 3 weiteren Variablen habe ich die Suchwörter drin stehen (ich verwende Variablem, da sich deren Wert ändern kann).
Nun möchte ich die Variable mit dem Text nach den Variablen mit den Suchwörtern durchsuchen. Jedoch weiß ich nicht wie ich das richtig programmiere...
Zum Beispiel:
Text = "Hallo heute ist ein sonniger Tag."
Suche1 = "Hallo"
Suche2 = "ein"
Suche3 = "Tag"
Mein Ansatz ist:
Sub Finden()
If Text = Suche1 * Suche2 * Suche3 then
MsgBox ("Suchtexte sind vorhanden!")
End if
End Sub

Die Sterne sollen dafür stehen, dass zwischen den Suchwörtern auch andere Zeichen stehen können.
Ich hoffe hier kann mir jemand weiter helfen - Vielen vielen dank im Vorraus!

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
mit LIKE
09.01.2015 13:54:48
Klaus
Hallo Kevin,
Sub Finden()
Suche1 = "Hallo"
Suche2 = "ein"
Suche3 = "Tag"
Text = "Hallo heute ist ein sonniger Tag."
If Text Like "*" & Suche1 & "*" & Suche2 & "*" & Suche3 & "*" Then
MsgBox ("Suchtexte sind vorhanden!")
End If
End Sub
Grüße,
Klaus M.vdT.

AW: Nach Text durchsuchen - String nach String
09.01.2015 14:00:08
UweD
Hallo
Sub Finden()
Dim StrText$, Suche1$, Suche2$, Suche3$
StrText = "Hallo heute ist ein sonniger Tag."
Suche1 = "Hallo"
Suche2 = "ein"
Suche3 = "Tag"
If InStr(StrText, Suche1) > 0 And _
InStr(StrText, Suche2) > 0 And _
InStr(StrText, Suche3) > 0 Then
MsgBox ("Suchtexte sind vorhanden!")
End If
End Sub
Alle 3 müssen vorkommen
Wenn nur Einer reicht, dann das AND durch OR ersetzen
Gruß UweD
Anzeige

334 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige