Vooraf: Alle code is het werk van snb.
Probleem: Als ik via combobox1 en combobox2 een datum kies, scrollt het bestand perfect naar de week waarin die datum voorkomt.
BEHALVE, als ik een zondag als datum kies, dan wordt er een foutief weeknummer weergegeven.(Amerikaanse weeknummers)
Wat moet in het rode gedeelte van de code veranderd worden, zodat het Europese systeem van toepassing is?
Probleem: Als ik via combobox1 en combobox2 een datum kies, scrollt het bestand perfect naar de week waarin die datum voorkomt.
BEHALVE, als ik een zondag als datum kies, dan wordt er een foutief weeknummer weergegeven.(Amerikaanse weeknummers)
Wat moet in het rode gedeelte van de code veranderd worden, zodat het Europese systeem van toepassing is?
Code:
Private Sub ComboBox3_Change()
If ComboBox3.ListIndex > -1 Then
[COLOR="#FF0000"]ComboBox4.Value = "Week " & Application.WeekNum(DateSerial(ComboBox1.Value, ComboBox2.ListIndex + 1, ComboBox3.Value))[/COLOR]
ComboBox2.ListIndex = -1
ComboBox3.Clear
End If
End Sub
Private Sub ComboBox4_Change()
Application.Goto Sheets(1).Range("A:A").Find(Me.ComboBox4, , xlValues, xlWhole), True
End Sub
