Hi
Jullie weten dat ik al lang met mijn kalender bezig ben.
Wel nu was ik die aan het finaal aan het testen en kom iets raar tegen.
Als ik probeer een verlofcode te leggen op 14 juli geen probleem maar op 15 juli is er een probleem hij denkt dat er al een verlofcode staat.
ok al ziet de kalender eruit zoals op de foto.
Heb een vb gemaakt waarin juist de controle van het bereik staat. die via de knop het op het werkblad.
Bij de 14de julie krijg je het zelfde als op de foto wat zo moet zijn en zou op 15 ook zo moeten zijn
ik weet waar het fout gaat als ik de 15 de juli selecteer dan denkt hij dat er een intersectie is met de opmerking hoe kan ik dit verhelpen ?
Het rare is dat hij dit niet doet als ik de 21 ste juli selecteer waar de opmerking instaat.
Waarom zegt hij dat er op de 15 jullie wel een intersection is met 21 jullie met de commentaar in de cel? En het niet zo is op 14 en 21 jullie.
Jullie weten dat ik al lang met mijn kalender bezig ben.
Wel nu was ik die aan het finaal aan het testen en kom iets raar tegen.
Als ik probeer een verlofcode te leggen op 14 juli geen probleem maar op 15 juli is er een probleem hij denkt dat er al een verlofcode staat.
ok al ziet de kalender eruit zoals op de foto.
Heb een vb gemaakt waarin juist de controle van het bereik staat. die via de knop het op het werkblad.
Bij de 14de julie krijg je het zelfde als op de foto wat zo moet zijn en zou op 15 ook zo moeten zijn
ik weet waar het fout gaat als ik de 15 de juli selecteer dan denkt hij dat er een intersectie is met de opmerking hoe kan ik dit verhelpen ?
Het rare is dat hij dit niet doet als ik de 21 ste juli selecteer waar de opmerking instaat.
Waarom zegt hij dat er op de 15 jullie wel een intersection is met 21 jullie met de commentaar in de cel? En het niet zo is op 14 en 21 jullie.
Code:
Function IsRechthoekInMijnBereik(RngVerlofBereik As Range)
Dim shp As Shape
Dim wrkrng As Range
Set wrkrng = RngVerlofBereik
wrkrng = RngVerlofBereik.SpecialCells(xlCellTypeComments)
MsgBox ("Aaantal opmerkingen in bereik" & " " & wrkrng.Count)
For Each shp In ActiveSheet.Shapes 'Controle voor elke figuur in het bereik
If shp.AutoShapeType = msoShapeRectangle Then
'If Not Intersect(RngVerlofBereik, shp.TopLeftCell) Is Nothing Then
If Not Intersect(RngVerlofBereik, shp.TopLeftCell) Is Nothing Then
IsRechthoekInMijnBereik = True '= return code
Exit Function
End If
End If
Next shp
IsRechthoekInMijnBereik = False
End Function
Bijlagen
Laatst bewerkt: