FIND vindt niet de eerst voorkomende waarde in range

Status
Niet open voor verdere reacties.
A

aaddegraaf

Nieuwe gebruiker
Lid geworden
4 feb 2020
Berichten
4
Ik zoek de eerste cel in een kolom waar de waarde "Bank" in staat.
Mijn code met de FIND opdracht selecteert NIET de eerste cel waar "Bank" in staat, maar de eerstvolgende.
Dus in C1 staat "Bank", maar deze opdracht selecteert C2 waar ook "Bank" in staat.
Waarom vindt deze code NIET C1 ??

Code: 
Sub zoekrij()
Dim c As Range

Set c = Range("C:C").Find("Bank")
If Not c Is Nothing Then _
MsgBox "Rijnummer = " & c.Row
End Sub
 
Laatst bewerkt:
Omdat standaard gezocht wordt na rij 1 als je niet anders mee geeft.
Maak er dit van:
Code: 
Sub zoekrij()
    Dim c As Range
    
    Set c = Range("C:C").Find("Bank", Range("C1").End(xlDown))
    If Not c Is Nothing Then MsgBox "Rijnummer = " & c.Row
End Sub
 
Laatst bewerkt:
Of

Code: 
Sub M_snb()
  Columns(2).Resize(, 2).Find("bank").Select
End Sub
 
Error handling is dan wel nodig
 
edmoor zei:
Omdat standaard gezocht wordt na rij 1 als je niet anders mee geeft.
Maak er dit van:
Code: 
Sub zoekrij()
    Dim c As Range
    
    Set c = Range("C:C").Find("Bank", Range("C1").End(xlDown))
    If Not c Is Nothing Then MsgBox "Rijnummer = " & c.Row
End Sub
Klik om te vergroten...

Dat is de oplossing voor mij. Bedankt!
Gr. Aad
 
Als je alleen de betreffende cel actief wilt maken is dat voldoende.
Je hebt dan echter niet het Range object in een variabele voorhanden.
 
Nee, klopt.
Maar hier kan ik mee verder. Ik kreeg de cel niet actief. Ik kende niet alle parameters van de FIND opdracht.
Bedankt.
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan