Hallo excelliefhebbers,

Ik ben bezig om een programmatje te maken, waar men kan zien hoeveel personen onder zich staan (binnen een bedrijf). Ik heb een database waar enkele gegevens staan van de mensen binnen het bedrijf.
In een tabblad 2 heb ik een knop gemaakt waardoor er een formulier verschijnt waar je een naam kan intypen en de functie kan kiezen. Door dan op vind medewerker te klikken, moet er in een combobox alle geboortedatums komen te staan die er gevonden zijn. Een naam kan namelijk meerdere keren voorkomen met dezelfde functie.

Weet iemand wat voor code ik hierachter kan "plakken". Ik hoop graag dat iemand mij verder kan helpen.

De bijlage maakt het denk ik wat duidelijker

Zoek op FindNext in de VBA help files. Dat is de basis voor je code.

Wigi

Hallo wigi,
bedankt voor uw reactie. Ik heb in de helpfiles gekeken en kwam uit bij een voorbeeld. Deze heb ik geprobeerd te vertalen naar mijn probleem en kwam uit tot de volgende code:
Private Sub vindmedewerker_Click()

With Worksheets("database").Range("a1:b5")
    Set naammedewerker = .Find(naam, LookIn:=xlValues)
    If Not naammedewerker Is Nothing Then
        naam = naammedewerker
        Do
             Interior.Pattern = xlPatternGray50
            Set naammedewerker = .FindNext
        Loop While Not c Is Nothing And naam <> naammedewerker
    End If
End With

End Sub
Hier krijg ik enkele foutmeldingen, maar ik snap niet goed wat het probleem is (ik snap de code ook niet echt. Wel dat ie wat grijs maakt, maar ik wist niet goed waardoor ik dat moet vervangen. Ik hoop dat u mij kunt helpen.

mvg,
excie

Kan niemand mij helpen op het forum? Ik ben er echt al een tijd mee bezig, maar kom geen streep verder

Uiteraard zijn er mensen die je kunnen en zullen helpen, maar houd er rekening mee dat dit in (schaarse) vrije tijd moet gebeuren. Een aantal dagen vertraging kan dus best voorkomen.

Oke WG, ik zal afwachten en proberen er zelf uit te komen.

Wigi,
Ik was er zelf nog niet uigekomen.. Ik kwam elke keer maar weer op 1 datum uit. Super bedankt!