deel van tekst zoeken VBA

[arjancuijpers]

Ik heb een code waarbij ik zoek in een cell en als het juist is een formule laat invullen
Echter vult hij alleen formule in als de tekst 100% overeenkomt maar ik wil juist als de tekst het woord glas bevat dat de formule al ingevuld wordt.

Sub formule()

Dim celltxt As String

For x = 1 To Range("A65536").End(xlUp).Row
If InStr(1, Cells(x, "K"), "glas") > 0 Then
Range("O" & x).Formula = "=if((RC[-2]-RC[-10])<600,if((RC[-3]-(((600-(RC[-2]-RC[-10]))*RC[-1])*10^-6))<0,0,(RC[-3]-(((600-(RC[-2]-RC[-10]))*RC[-1])*10^-6))),RC[-3])"
Else
Range("O" & x).Formula = "= (RC[-3])"
End If
Next x
   
End Sub

MVG

Arjan

 

[arjancuijpers]

Beste,

Ik heb zelf al uitgevonden hoe ik op deel tekst kan zoeken maar hij is alleen nog hoofdletter gevoelig hoe kan ik dit oplossen?

Dim celltxt As String

For x = 1 To Range("A65536").End(xlUp).Row
If InStr(1, CStr(Cells(x, "K").Value), "glas") <> 0 Then
Range("O" & x).Formula = "=if((RC[-2]-RC[-10])<600,if((RC[-3]-(((600-(RC[-2]-RC[-10]))*RC[-1])*10^-6))<0,0,(RC[-3]-(((600-(RC[-2]-RC[-10]))*RC[-1])*10^-6))),RC[-3])"
Else
Range("O" & x).Formula = "= (RC[-3])"
End If
Next x
   
End Sub

MVG

Arjan

 

[Cobbe]

Er is niet veel mis met je code maar het is hoofdlettergevoelig:

Probeer zo eens:

If InStr(1, UCase(Cells(x, "K")), UCase("Glas")) > 0 Then

 

[Timshel]

Of met LCase

Sub formule()

Dim celltxt As String

For x = 1 To Range("A65536").End(xlUp).Row
If InStr(1, LCase(CStr(Cells(x, "K").Value)), "glas") <> 0 Then
Range("O" & x).Formula = "=if((RC[-2]-RC[-10])<600,if((RC[-3]-(((600-(RC[-2]-RC[-10]))*RC[-1])*10^-6))<0,0,(RC[-3]-(((600-(RC[-2]-RC[-10]))*RC[-1])*10^-6))),RC[-3])"
Else
Range("O" & x).Formula = "= (RC[-3])"
End If
Next x
   
End Sub

 

[arjancuijpers]

Super!!