Zoeken naar celnummer in plaats van waarde

[Kim2011]

Hoi allemaal,

Is het mogelijk om te zoeken naar een rijnummer in plaats van een celwaarde? Dus in plaats van het getal wat in de cel staat wil ik het rijnummer (bijvoorbeeld rij '14') terugkrijgen.

Alvast bedankt!

Zie onderstaande code:

    Dim xlw As New Excel.Workbook
    HuidigJaar = wbWeek.Sheets(1).Range("P7")
    Dim c As Range
    With xlw.Sheets("Agenda").Range("Q3:Q1000")
    Set c = .Find(HuidigJaar, LookIn:=xlValues, LookAt:=xlWhole)
        If Not c Is Nothing Then
        Else
        MsgBox "Kan de datum niet vinden."
    End If
    End With

 

[Cobbe]

Zo wellicht:

 Dim xlw As New Excel.Workbook
    HuidigJaar = wbWeek.Sheets(1).Range("P7")
    Dim c As Range
    With xlw.Sheets("Agenda").Range("Q3:Q1000")
    Set c = .Find(HuidigJaar, LookIn:=xlValues, LookAt:=xlWhole)
        If Not c Is Nothing Then
        [COLOR="#FF0000"]MsgBox " de datum staat op rijnr.  :" & c.row[/COLOR]        
Else
        MsgBox "Kan de datum niet vinden."
    End If
    End With