Scrollen naar gewenste datum

[wieter]

Aan de hand van 3 ComboBoxen (jaar;maand;dag) , wil ik dat er naar die datum gescrold wordt.
Met onderstaande code probeer ik dat klaar te krijgen.

Private Sub ComboBox3_Change()
    If ComboBox3.ListIndex > -1 Then
        Application.Goto Cells(3, 1).Offset(DateSerial(ComboBox1.Value, ComboBox2.ListIndex + 1, ComboBox3.Value))
        ComboBox1.ListIndex = -1
        ComboBox2.ListIndex = -1
        ComboBox3.Clear
    End If
End Sub

Echter het scrollen loopt helemaal fout.
Wat is er mis aan de code?

 

[OctaFish]

Je kunt nooit met Offset zoeken naar een waarde; offset verschuift alleen maar op getallen. Je moet dus weten naar welke rij je moet. Probeer dit eens:

Private Sub ComboBox3_Click()
Dim tmp As Variant, FirstAddress As Variant
    If ComboBox3.ListIndex > -1 Then
        tmp = DateSerial(ComboBox1.Value, ComboBox2.ListIndex + 1, ComboBox3.Value)
        With Worksheets(1).Range("A1:A1000")
            Set c = .Find(tmp, LookIn:=xlValues)
            If Not c Is Nothing Then
                FirstAddress = c.Address
                Application.Goto ActiveSheet.Range(FirstAddress), Scroll:=True
            End If
        End With
        ComboBox1.ListIndex = -1
        ComboBox2.ListIndex = -1
        ComboBox3.Clear
    End If
End Sub

 

[wieter]

Bedankt Octa,
Werkt perfect.