Errot in excel 2010 in 2003 werkt het wel juist

[tjeerd1972]

Function DienstFromDate3(MyDate As Date, Ploeg As String) As String
'*****************************************************************
'*Bewerkt door T. R. Visser
'*-----------------------
'*Input :=DatumX + PloegX
'*Output :=Naam van dienst
'*---------------------------------------------------------
Dim fdat As Date
Dim fact As Double
Dim convFact As String
Dim Dienst3 As String
Select Case Ploeg
'Deze datums zijn om het rooster af te stellen.
Case "Groen"
fdat = #1/4/1900#
Case "Geel"
fdat = #1/2/1900#
Case "Zwart"
fdat = #1/10/1900#
Case "Rood"
fdat = #1/8/1900#
Case "Blauw"
fdat = #1/6/1900#
End Select
fact = (MyDate - fdat) / 10
convFact = CStr(fact)
If InStr(convFact, ",") = 0 Then
Dienst3 = "V"
Else
Select Case Right(convFact, 1)
Case 1
Dienst3 = "V"
Case 2
Dienst3 = "M"
Case 3
Dienst3 = "M"
Case 4
Dienst3 = "N"
Case 5
Dienst3 = "N"
Case 6
Dienst3 = " "
Case 7
Dienst3 = " "
Case 8
Dienst3 = " "
Case 9
Dienst3 = " "

End Select
End If
DienstFromDate3 = Dienst3
End Function

eerste fout melding komt is right en daarna elke case wie heeft hier een op lossing voor

 

[tjeerd1972]

Deze file weerkt bij mij niet onder office 2010

Heeft iemand hier een oplossing voor of weet iemadn waarom deze file niet werkt?

 

[robdgr]

Misschien is de oplossing al gegeven op deze vraag.

 

[crash]

Kreeg een misbruikmelding, dat deze vraag op een ander forum ook geplaatst is. Helpmij.nl kan hier niks tegen doen. Echter zou het wel zo netjes zijn, als de vraagsteller dit even vermeld.

http://www.worksheet.nl/forumexcel/vragen/68254-deze-file-werkt-niet-excel-2010-a.html

 

[tjeerd1972]

rdg1314

Hallo,

Ikkan die link niet meer openen bestaat niet meer geeft ie bij mij aan kan je mij iets mer vertellen alvast ebdankt.

 

[richard1970]

Het forum Worksheet verwijderd crossposts. Vandaar dat de link het niet meer doet.
Richard

 

[tjeerd1972]

Hallo,

Ik heb zelf nog niet de oplossing gevonden als iemand mij hier mee kan helpen zal het mooi zijjn.

tjeerd

 

[robdgr]

Ik heb zelf nog niet de oplossing gevonden als iemand mij hier mee kan helpen zal het mooi zijjn.

tjeerd,

Op de afbelding zie je wat ik krijg als ik op een datum klik. Wat is hier mis mee?

 

[tjeerd1972]

Ik krijg de volgende foutmelding

Ik krijg deze fout melding.

 

[tjeerd1972]

Opgelost maar weet nog niet waarom.

ik heb de file MSCAL.OCX geinstalleerd en het werkt.

 

[Warme bakkertje]

Dat is het stuurprogramma voor het kalender-object. Kijk in VBA maar eens bij Extra >> Verwijzingen >> Microsoft Calender Control xx.x Deze zal voordien dan wel ONTBREEKT aangegeven hebben.