2 x private sub bij dubbel klik op een blad

[ronald1986]

Goedemorgen,

Ik wil graag dat wanneer ik ergens tussen cel B6 en B35 dubbelklik er een bepaalde macro wordt uitgevoerd. Wanneer ik tussen B41 en B60 dubbelklik op een cel moet er een andere macro uitgevoerd worden. Nou heb ik onderstaande code voor het uitvoeren van een macro bij dubbelklik in een bepaalde range:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Application.Intersect(Target, Range("B6:B35")) Is Nothing Then
regelinvoegen
End If
End Sub

Deze code heb ik in blad 1 staan.

Als ik deze code nou kopieer en plak in blad 1 en alleen de range aanpas naar B41 tot B60 krijg ik de foutmelding:

"Compileerfout: Er is een dubbelzinnige naam gevonden: Worksheet_BeforeDoubleClick"

Ik heb dus deze code twee keer in blad 1 staan met beide een andere range, maar dit werkt dus niet.

Weet iemand hoe ik dit kan oplossen?

 

[edmoor]

De naam van een script mag niet dubbel bestaan dus moet je de controle uitbreiden in het script zelf. Bijvoorbeeld:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Not Application.Intersect(Target, Range("B6:B35")) Is Nothing Then
        regelinvoegen
    End If

    If Not Application.Intersect(Target, Range("B41:B60")) Is Nothing Then
        regelinvoegen
    End If
End Sub

 

[ronald1986]

Bedankt! Werkt nu helemaal goed!