lengte controle

[kibus]

Goedemorgen,

Wie kan mij helpen aan stukje VBA code voor het volgende.

in kolom b staan verschillende records onder elkaar in kolom c2 staat 1 record.

hoe kan ik kolom b doorzoeken op dezelfde lengte als $c$2
als de lengte gelijk is dan waarde kolom b anders "niet"

de formule zoals onderstaand wil ik niet gebruiken omdat ik dan naast mijn bereik moet werken.
=ALS(LENGTE(B2)=LENGTE($C$2);B2;"niet")

de code zou beginnen in cel b2 dan b3 etc ....

alvast bedankt!

 

[kibus]

ik kom tot zover .. duurt alleen erg lang wellicht heeft iemand iets beters?

Sub test()

Range("b1").Select
e:
If ActiveCell = "" Then
Exit Sub
Else
End If
If Len(ActiveCell) = Len(Range("c2")) Then
ActiveCell.Offset(1, 0).Select
GoTo e
Else
ActiveCell = "niet"
ActiveCell.Offset(1, 0).Select
GoTo e
End If
End Sub

alvast bedankt

 

[zapatr]

Sub macro1()
For x = 1 To Range("B65536").End(xlUp).Row
If Len(Range("B" & x).Value) <> Len(Range("C2").Value) Then
Range("B" & x).Value = "NIET"
End If
Next x
End Sub

 

[kibus]

Harstikke bedankt zapatr, gaat stukken sneller