VBA programma om Textwaarden op te zoeken

[Seattle05]

Hi,

Ik ben opzoek naar een manier om een rij-nummer te vinden van een serienummer (bv BACC2453B), dit nummer staat ergens in een kolom vol met dit soort nummers.

Ik wil dit doen d.m.v Visual Basic programma-tje.

Mijn programmatje werkt alleen voor getallen en niet voor mijn zoekwaarde ( BACC253G)

dit is wat ik gemaakt heb ( met hulp :thumb: )

k = Val(inputtxt.Text)

i = 1
Do Until Cells(i, 2).Value = ""

If Cells(i, 2).Value = k Then GoTo Output
i = i + 1
Loop

Output:
outputtxt = i


Kan iemand mij verder helpen.

Bedankt Michiel

 

[LucHeyndrickx]

Hallo,

Dim rng As Range

Set rng = Range("A:A").Find(what:=inputtxt.Value)

If not rng Is nothing then
msgbox "Rijnummer " & rng.Row
Else
msgbox "Tekst niet gevonden"
End If

Luc

 

[Superzeeuw]

Michiel,

Volgens mij is onderstaande vraag dezelfde als deze??????????????????????

Hallo,

Ik heb een excel file waarbij ik via Excel's Visual basic een waarde wil opzoeken.

D.w.z., ik wil een programma schrijven dat een waarde/tekst ( bv verkregen uit een textbox) opzoekt in een bepaalde Excel file (uit een kolom) en dan het liefste ook nog het rijnummer doorgeeft . I

Ik denk dat het moet via de functie "lookup" maar het lukt me niet om het aan de praat te krijgen, kan iemand mij hiermee helpen?

PS Ik wil niet met Excelvelden werken (bijv met Vlookup) maar echt een los programmatje schrijven in Visual Basic, dat hetzelfde doet als Vlookup

Bedankt,

Michiel

 

[Superzeeuw]

Michiel,

Nogmaals het antwoord op je vorige vraag:

Hallo

Het volgende maar eens om te proberen

Zoekwaarde = inputbox("Voer zoekwaarde in:")
Rij = 1
Do until cells(Rij, 2).value = ""
Rij=Rij+1
If Cells(Rij, 2).value = Zoekwaarde then goto Output
Loop
Output:
Msgbox("Gevonden in regel:" & Rij)

Groeten

P.s.: heb er gelijk kolom 2 van gemaakt