tekst zoeken VBA

[Mr_Miller]

Allen,

Vraagje, heb ik onderstaande stukje code geschreven:

Dim c As Range
Dim a As String
Dim b As Integer

a = Sheets("blad2").Range("B1").Value
b = Sheets("blad2").Range("A1").Value

With Sheets("blad1").Columns(6)
Set c = .Find(a)
If Not c Is Nothing Then
firstaddress = c.Address
Do
c.Offset(0, -1).Value = b
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address <> firstaddress
End If
End With

End Sub

Blad2 A1 = 5
Blad2 B1 = test

Blad1 colom6 heeft onder elkaar staan: test, test, test 2

Als ik dan de macro uitvoer, zet hij voor elke cell waar test instaat de waarde 5, maar dit doet hij ook bij de cell waar de waarde test 2 instaat, terwijl deze niet overeen komt met de waarde van blad2,B1. Er is maar een deel van de waare waar (test) maar niet het getal.

Hoe komt dit en hoe kan ik dit oplossen dat hij alleen maar kijkt naar exact dezelfde tekst.

Bij voorbaat dank.

Gr.
Mr_Miller

 

[wampier]

In je find statement moet je dat aangeven via:

Lookat:=xlWhole

 

[Mr_Miller]

Dat ik daar nou niet zelf op ben gekomen!!

In iedergeval bedankt.

 

[snb]

En als je wil filteren moet je gewoon filteren:

Sub M_snb()
  with Sheets("blad1").Columns(6)
    .autofilter 1,Sheets("blad2").Range("B1").Value
    for each cl in .specialcells(12)
      if cl.row>1 then cl.offset(,-1)=Sheets("blad2").Range("A1").Value
    next
   .autofilter
  end with
end sub