ToLa

Beste pc freaks,

Ik heb een probleem met de beepfunctie. Deze werkte perfect op mijn oude pc (32bot), maar niet op de nieuwe (64bit).

Aanpassing gedaan in vba om deze overgang van 32 naar 64 te maken.

Waarom werkt dezeonderstaande  vba niet?

Graag respons aub.

___________________

#If Win64 Then
  Private Declare PtrSafe Function Beep Lib "kernel32" (ByVal dwFreq As Long, ByVal dwDuration As Long) As Long
#Else
    Private Declare Function Beep Lib "kernel32" (ByVal dwFreq As Long, ByVal dwDuration As Long) As Long
#End If

Dim oldValue
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next

    Set KeyCells = Range("A38")
    
    If Not Application.Intersect(KeyCells, Range(Target.Address)) _
           Is Nothing Then

        If oldValue = "" And KeyCells <> "" Then
            Beep 900, 500
            Beep 900, 500
         End If
    End If
    
 On Error Resume Next

    Set KeyCells = Range("A40")
    
    If Not Application.Intersect(KeyCells, Range(Target.Address)) _
           Is Nothing Then

        If oldValue = "" And KeyCells <> "" Then
            Beep 900, 500
            
         End If
 End If

End Sub