Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: String in Text suchen und mit "wahr" oder "falsch" ausgeben
Autor: mitsch
Datum: 09.05.06 10:03
Hallo Wollez, Public Function TextSearch(ByVal strText As String, _ ByVal strSuch As String, _ Optional ByVal bCase As Boolean = False, _ Optional ByVal lBegPos As Long = 1) As Boolean <-----------------Ändern Dim lPos As Long If lPos < 1 Then lPos = 1 If bCase Then ' Groß-/Kleinschreibung beachten! lPos = InStr(Mid$(strText, lBegPos), strSuch) Else ' Groß-/Kleinschreibung ignorieren! lPos = InStr(LCase$(Mid$(strText, lBegPos)), _ LCase$(strSuch)) End If If (lPos=0) then <---------------Hinzufügen TextSearch=False <---------------Hinzufügen Else <---------------Hinzufügen textSearch=true <---------------Hinzufügen Endif <---------------Hinzufügen End Function Das sollte dir bei deinem Problem helfen Gruß

String in Text suchen und mit "wahr" oder "fa...	1.003	wollez	09.05.06 09:51
Re: String in Text suchen und mit "wahr" oder &quo...	582	mitsch	09.05.06 10:03
Re: String in Text suchen und mit "wahr" oder &quo...	568	wollez	09.05.06 10:23
Re: String in Text suchen und mit "wahr" oder &quo...	522	HarryC	10.05.06 18:11

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen