Hoi,
Ik gebruik deze code in een macro
nu krijg ik sinds kort een compileerfout dat de bibliotheek ontbreekt. de foutmelding zit op de code DATE. Ik heb geprobeerd te achterhalen welke verwijzing niet juist is of ontbreekt. maar nog geen succes.
Heeft iemand wellicht een idee hoe ik dit kan oplossen?
Alvast bedankt
Gr
Ik gebruik deze code in een macro
Code:
Function ZijnCluppie(van, tot, tabel As Range, Optional nr As Integer = 1)
Dim R As Range, Interval, Opl()
With WorksheetFunction
For Each R In tabel.Columns(2).Cells
If R = "" Or R(, 0) = "" Then Exit For
Interval = .Max(0, .Min(IIf(R(, 2) = "", Date, R(, 2)), tot) - .Max(R, van))
If Interval > 0 Then
Dvan = Format(.Max(R, van), "dd-mm-yyyy")
Dtot = Format(.Min(IIf(R(, 2) = "", Date, R(, 2)), tot), "dd-mm-yyyy")
ZijnCluppie = ZijnCluppie & "|" & R(, 0) & " " & Dvan & " " & Dtot
End If
Next
If ZijnCluppie = "" Then ZijnCluppie = "| "
ZijnCluppie = Split(ZijnCluppie, "|")(nr)
ZijnCluppie = Split(ZijnCluppie, " ")
End With
End Function
nu krijg ik sinds kort een compileerfout dat de bibliotheek ontbreekt. de foutmelding zit op de code DATE. Ik heb geprobeerd te achterhalen welke verwijzing niet juist is of ontbreekt. maar nog geen succes.
Heeft iemand wellicht een idee hoe ik dit kan oplossen?
Alvast bedankt
Gr