BjornMengerink
Gebruiker
- Lid geworden
- 1 nov 2006
- Berichten
- 37
Hallo Allemaal,
Ik heb een vraag over bijgaande code:
Als ik deze code uitvoer krijg ik de melding Fout 70: Toegang geweigerd en de foutopsporing geeft de fout weer bij de SendKeys.
Weet iemand hoe dit kan?
Alvast bedankt
Bjørn
PS: ik gebruik Windows 7 64-bits met Office 2003
Ik heb een vraag over bijgaande code:
Code:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.Count = 1 Then
If (Target.Column = 3) And (InStr(Target.Value, ".") > 0) Then
MsgBox "gebruik geen afk. als adres.", vbExclamation, "Let op!"
Target.Activate
End If
If Target.Column = 7 And Not (InStr(Target.Value, "-") > 0) Then
MsgBox "aub netnummer invoeren", vbExclamation, "Let Op!!"
Target.Activate
SendKeys "{F2}"
End If
End If
End Sub
Als ik deze code uitvoer krijg ik de melding Fout 70: Toegang geweigerd en de foutopsporing geeft de fout weer bij de SendKeys.
Weet iemand hoe dit kan?
Alvast bedankt
Bjørn
PS: ik gebruik Windows 7 64-bits met Office 2003