variabele doorgeven naar en van een event procedure.

[leofact]

Variabelen zijn door te geven naar een volgende procedure met byval/byref.
Bij een event sub (on_click) lukt me dat niet,
Ik wil het rijnummer uitlezen dan een userform starten en wanneer daar weer op geklikt wordt een procedure starten met de uitkomst van de rij en de userform samen.
Public biedt geen oplossing.
Hoe kan ik dit aan pakken?
Ik heb een voorbeeld in sterk vereenvoudigde vorm bijgesloten.
Hieroner staat daar de code van.
Alvast bedankt voor de moeite
mvg Leo

Public rij As Integer
Public kolom As Integer
Public geheugen As Integer

=event
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
rij = Target.Row
kolom = Target.Column
geheugen = 5
voorbeeld
End Sub

=module
Sub voorbeeld()

UserForm1.Show
End Sub

=event
Private Sub CommandButton1_Click()
Cells(rij, kolom).Value = geheugen
End Sub

 

[WinteE]

Probeer dit eens :

Private Sub CommandButton1_Click(Bereik as Range)

Je behandelt vervolgens Bereik hetzelfde als Target

Erik

 

[leofact]

Dan wordt in ieder geval de variabele geheugen niet door gegeven en dat is nu juist wel de bedoeling.
Heb wel een workaround bedacht, nl de variabelen op een verborgen plek in het sheet zelf zetten en dan steeds schrijven & lezen. Op zich geen probleem, maar naar mijn idee slordig programmeer werk.
Ben nogal newbee dus kan me wel wat veroorloven
Maaar probeer het toch goed aan te pakken.
mvg Leo