[VB Excell] celwaarde toetsen of het een een woord bevat.

[made]

Heb al gegoogled en hier gezocht, maar kan geen antwoord vinden.

Probleem is als volgt :
Ik heb een cel waarin een tekst komt. Deze tekst is willekeurig en ik wil zoeken naar een specifieke woord.

Voorbeeld :
Sub Test
Range("A1").Select
tekst = ActiveCell
If Tekst BEVAT voetbal Then
MsgBox "tekst bevat het woord voetbal!"
Else
MsgBox "tekst bevat niet het woord voetbal"
End If
End Sub

Ik heb geen idee hoe ik dus deze zoekfunctie moet specificeren.
Gaarne advies !

[BtM909]

Misschien als je zoekt op VBA dat je meer vind

[google=VBA Excel instring] levert iig genoeg hits naar InStr() op

[made]

DIt werkt !
Maar zodra je voetbal met een hoofdletter schrijft werkt het niet meer.
Kan je ook specificeren dat
Tekst = kleine letters ?

Sub Test()
Range("A1").Select
Tekst = ActiveCell
If InStr(Tekst, "voetbal") > 0 Then
MsgBox "tekst bevat het woord voetbal!"
Else
MsgBox "tekst bevat niet het woord voetbal"
End If
End Sub

[remco_k]

De inhoud van de cell omzetten naar kleine letters?

[Anoniem: 238523]

probeer eens

if InStr(upper(Tekst), "VOETBAL")

of natuurlijk InStr(lower(Tekst), "voetbal")

[ Voor 35% gewijzigd door Anoniem: 238523 op 12-12-2007 16:53 ]

[urk_forever]

Of je geeft gewoon aan dat je een text compare wilt doen ipv een binaire compare:

Visual Basic 6:

InStr(1, "TeSt", "s", vbTextCompare)