VBA Zoeken naar eerste waarde

[posse]

Hallo allemaal,

ik zit met een probleem. Ik ben een macro aan het maken en wil nu de volgende stap erin opnemen.

In een exceldocument moet de macro zoeken in een kolom met Postcodes naar de eerste waarde die groter is dan 50000. Stel je voor een Kolom die gesorteerd van klein naar Groot staat van 2000 tot en met 70000. Nu moet de macro het eerste getal aanwijzen die groter is dan 50000.

Het lukt mij wel om te zoeken naar een vaste waarde(via inputbox), maar niet om te zoeken naar een waarde met de groter dan (>) functie.

Heeft iemand een idee hoe ik dit het beste kan aanpakken?

In de bijlage zit het document waar ik mee bezig ben. Hij staat gesorteerd op kolom J(Los postcode) Dit is ook de kolom waar de zoekfunctie in moet zoeken.

Alvast bedankt

 

[paulva]

Voor vba weet een ander wel de oplossing. Met een gewone formule kan het nochtans ook. Het volgende bestandje maakte ik met openoffice.
Bekijk bijlage EersteWaarde.xls

ps: de moderator wil deze vraag wel op de juist plaats (excel of vba) zetten...?

 

[huijb]

Verplaatst naar VBA

 

[E v R]

Een methode:

Sub zoekrij()
Dim c As Long
Dim TeZoekenWaarde As Long
On Error GoTo fout:
TeZoekenWaarde = 1 + InputBox("Te zoeken waarde:")
    If TeZoekenWaarde < Application.WorksheetFunction.Min(Range("j:j")) Then
        MsgBox "Rijnummer = 2"
    Else
        MsgBox "Rijnummer = " & Application.WorksheetFunction.Match((TeZoekenWaarde), Range("J:J"), 1) + 1
    End If
Exit Sub
fout:
MsgBox "vul waarde in": zoekrij
End Sub

 

[posse]

Bedankt

Hallo allemaal,

ik was opzoek naar de VBA code, deze code lijkt te werken.
Ik ga hier nu verder mee puzzelen. Heel erg bedankt.:thumb: