SendKeys geeft Fout 70: Toegang geweigerd

[BjornMengerink]

Hoi Allemaal,

Ik zit met het volgende probleem:

Ik wil in onderstaande code de SendKeys functie gebruiken zodat ik gelijk verder kan gaan met typen in dezelfde cel. Ik krijg echter de foutmelding: Toegang geweigerd.

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

Weet iemand heel toevallig wat dit is en hoe ik dit kan oplossen.

Alvast bedankt,
Bjørn

PS. Ik gebruik Windows 7 64-bits met office 2003

 

[paulva]

Een mooi stukje code. Bij mij (Winxp, Excel2007) werkt het perfect.
Misschien kan dit je wel helpen:

Private Sub Worksheet_Change(ByVal Target As Range)
    Application.EnableEvents = False
    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
            strv = Target.Value
            Target.Value = ""
            SendKeys strv
        End If
    End If
    Application.EnableEvents = True
End Sub

Door <escape> te drukken kan je dan ook niet meer de controle 'overrulen'.