Berekening op alle cellen in kolom uitvoeren

[luifel]

Hallo,
Zie bijlage ter verduidelijking.
Ik heb een commandbutton waarmee ik een sub aanroep.
Daar komt een inputbox naar voren, waarmee ik een tekening/boeknr in kan vullen.
Vervolgens wordt de vba code uitgevoerd, en deze doet precies wat ik wil, maar mijn probleem is dat dit nu slechts op één cel gebeurd.
Graag zou ik de code aanpassen dat dit op de gehele kolom wordt toegepast.
Wellicht belangrijk om te vermelden: De kolom kan 'blanke' cellen bevatten, en het aantal rijen is variabel.

Groeten
Bekijk bijlage Test_deel_celwaarde_zoeken.xls

 

[wampier]

En hoe moet de applicatie weten wat de variabele rij is?

De rest is heel eenvoudig zodra je de range weet met een "for each" statement

 

[luifel]

De rij is 'vast', ik heb nu de cel als vaste waarde toegevoegd

Private Sub CommandButton1_Click()
Dim celltxt As String
Dim SearchValue As String
'SearchValue = Range("D1")

SearchValue = Application.InputBox("Vul een tekeningnummer in...")

celltxt = ActiveSheet.Range("D6").Text
If InStr(1, celltxt, SearchValue) Then
ActiveSheet.Range("E6").Value = "X"
Else
ActiveSheet.Range("E6").Value = ""
End If
End Sub

Nu is D6 de cel die gezocht moet worden, dit moet de kolom D worden, vanaf D6 tot aan de laatste (kan ook een waarde ingegeven van waar ik weet dat de lijst niet langer wordt (bijvoorbeeld D500, maar misschien kan het netter?))

 

[wampier]

Zoiets kan. Kan ook met variabele kolomlengte, dat veranderd niet veel aan de oplossing

SearchValue = Application.InputBox("Vul een tekeningnummer in...")

for each cel in range("d6:d500")
If InStr(1, cel.value, SearchValue) Then
   cel.offset(0,1).Value = "X"
Else
   cel.offset(0,1).Value = ""
End If

 

[snb]

Dit verandert wel:

Sub M_snb()
   [H6:H100] = Evaluate("if(iserr(search(""" & InputBox("Vul een tekeningnummer in...") & "*"",D6:D100)),"""",""X"")")
End Sub

 

[luifel]

Gaaf!
Bedankt allebei, hier lukt het mee!