• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

Via VBA een naam opzoeken uit een Excel Worksheet

Status
Niet open voor verdere reacties.

Seattle05

Gebruiker
Lid geworden
4 okt 2005
Berichten
12
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
 
Hallo

Het volgende maar eens om te proberen

Zoekwaarde = inputbox("Voer zoekwaarde in:")
Rij = 1
Do until cells(Rij, kolom).value = ""
Rij=Rij+1
If cells(Rij, kolom).value = Zoekwaarde then goto Output
Loop
Output:
msgbox("Rij")

Geef bij kolom het kolomnummer in A=1, B=2, C=3, etc.

Groeten
 
Probeer deze Macro eens.
Aanpassen naar behoefte.

Option Explicit
Sub Vinden()
Dim dataRange As Range, strfound As Range
Dim x As String
Set dataRange = ActiveSheet.Range("A1:IV10000") 'Je kunt deze Range beperken tot 1 kolom
x = InputBox("Kies een zoekwaarde", "Zoeken")
With dataRange
Set strfound = .Find(What:=x, LookIn:=xlFormulas, LookAt:=xlWhole, _
SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False)
If Not strfound Is Nothing Then
MsgBox (x & " gevonden in cel " & strfound.Address)
Else
MsgBox (x & " niet gevonden")
End If
End With
End Sub
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan