Scroll naar datumselectie

[wieter]

Mijn strokenplanning loopt op zijn einde.
Bij openen van bestand wordt er naar de huidige datum gescrold.
Nu zou ik ook via een datumselectie(knop) naar de gekozen datum willen scrollen.
Ik krijg echter de typen niet in overeenstemming met elkaar.
Wie krijgt de code achter de knop "Datumselectie" werkend?

Bekijk bijlage 179212

 

[Cobbe]

Is deze werkwijze ook goed?

http://www.mijnbestand.nl/Bestand-3OST77S64U7N.xlsm

 

[wieter]

Sorry Cobbe, maar ik heb geen Acces, dus melding:"Kan object niet laden"
Toch bedankt voor je inzet!

 

[cow18]

volgens mij dienen zijn die protect en unprotect overbodig

Private Sub CommandButton1_Click()
  With Worksheets(1)
    .Unprotect
    On Error Resume Next
    i = WorksheetFunction.Match(CLng(DateValue(ComboBox2.Value & " " & ComboBox1.Value & " " & Range("D1").Value)), .Rows(5), 0)
    On Error GoTo 0
    If i = 0 Then
      MsgBox " datum niet gevonden"
    Else
      Application.Goto .Cells(5, i), True
    End If
    .Protect UserInterfaceOnly:=True, DrawingObjects:=True, Contents:=True, Scenarios:=True, AllowFiltering:=True
    .EnableSelection = xlUnlockedCells
  End With
  Unload Me
  Exit Sub
End Sub

 

[wieter]

Bedankt Cow18,
Werkt perfect (zelfs met foutafvang en msgBox)
Die protect en unprotect zijn inderdaad overbodig.