Fout 13 tijdens invoeren datum

[pacaskurban]

Hallo,

Ik gebruik een macro om tijden automatisch puntjes te laten typen (tijden automtisch invoeren) Dus ik type bijvoorbeeld 1500 en dan zet excel dit automatisch om in 15:00 in de cel.
De code ziet er als volgt:


Private Sub Worksheet_Change(ByVal Target As Range)
If not intersect Union(Range("D599"),Range("K10:K30")) is nothing then
Minuut = Target Mod 100
Uur = Int(Target / 60)
Uur = Uur + Int(Minuut / 60): Minuut = Minuut Mod 60
Uur = Uur Mod 24
If Target > 1 Then Target = TimeValue(Uur & ":" & Minuut)
End Sub .

Nu krijg ik in een andere cel (waar ik data's invul in eens een foutmelding.) Fout 13 opsporing en dan ga ik kijken dan zie ik dus dat ik telkens target mod 100 geel gemaakt is.
Wat is hier aan de hand?

groeten pascal

 

[zapatr]

1. Op het forum behoor je code te plaatsen tussen code-tags [....]
2. Je hebt die macro niet of niet goed getest. Want er blijkt onmiddellijk:
a. dat er een punt staat na End Sub, die mag er niet staan.
b. dat er een End if ontbreekt (daar krijg je melding van).
c. en dat regel 2 een foutmelding geeft. Wijzig die in:

If Not Intersect(Union(Range("D5 :D99"), Range("K10:K30")), Target) Is Nothing Then

De spatie na D5 moet je uiteraard verwijderen.

 

[sylvester-ponte]

waarom geen voorbeeld bestandje?