Horizontaal match zoeken

[wieter]

In bijlage is de vraag geformuleerd.
Ik wil de code die vertikaal een match zoekt (en ook werkt), ombouwen naar een horizontale match (dit lukt me niet).

Bekijk bijlage 176934

 

[Cobbe]

Gebruik deze eens:

Private Sub Workbook_Open()
  Dim i        As Integer
  For Each cl In Sheets(1).Range("F6:IV6")
     If cl = Date Then
          Application.Goto Cells(cl.Row, cl.Column - 7), 1
          Exit Sub
     End If
  Next
End Sub

 

[wieter]

Perfect Cobbe.
Uw code is ook beter leesbaar en begrijpbaar.
Bedankt!