SendKeys geeft Fout 70: Toegang geweigerd

Status
Niet open voor verdere reacties.

BjornMengerink

Gebruiker
Lid geworden
1 nov 2006
Berichten
37
Hallo Allemaal,

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
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan