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
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