Bij muisklik waade van een cel in een variabele stoppen

[Benmdf]

Hoi Allemaal,
Ben hier nog eens met een probleempje
door middel van een muisklik zou ik de waarde van de geselekteerde cel in een variable willen stoppen
om dan in een ander bestand te filteren op deze variabele.

CEL A5 heeft de volgende waarde: 20140808
na het klikken op deze cel zou de variabele nBonnr(Integer) of cBonnr(String)
wat kan ?
nBonnr = 20140808
of
cBonnr = "20140808"
Ik probeer dit met
de volgende macro
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim nBonnr As Integer
If Not Intersect(Target, Range("A:A")) Is Nothing Then
nBonnr = ActiveCell.Value
End If
End Sub
Dit lukt mij echter niet, heb al uitgebreid gegoogled maar niets gevonden

 

[edmoor]

Ten eerste kan dat niet met een muisklik en ten tweede heb je die variabele lokaal gedeclareerd waardoor deze weer weg is als de macro zijn werk heeft gedaan.

 

[Benmdf]

Beste Edmoor

Welke oplossing is er dan?de waarde van de cel kan wel op deze manier in een Msgbox gezet worden,
kan ze daar dan uitgehaald worden?

 

[edmoor]

Je kan een macro wel activeren met een dubbelklik. In je macro kan je dan die messagebox ook tonen. De macroheader dient er dan zo uit te zien:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

End Sub

 

[Benmdf]

Bedankt Edmoor

Is het op deze manier verder uit te breiden ?
kan ik de waarde van de Msgbox verder gebruiken
of kan ik zo de waarde in een variabele stoppen

 

[edmoor]

Dat ligt er helemaal aan wat je er mee wil gaan doen.

 

[Cobbe]

Zet dit in een module dan heb je die waarde steeds ter beschikking:

Public nbonnr As String

 

[Benmdf]

Bedankt

Bedankt allemaal,
Door de waarde in een publieke variabele te plaatsen kan ik ze inderdaad overal gebruiken