userform vba

[nobody11]

ik heb een userform gemaakt en daarin staat een listbox met de naam cluster_list

nu wil ik de waarde van die listbox in een sub gebruiken..

ik heb deze sub gemaakt, maar dat werkt niet..

nadat een listbox value is geselecteerd klik ik op de OK knop die de hieronder staande code heeft gekregen

Public Sub Ok_Click()

Call test cluster_list.Value

End Sub

sub test(cluster)
msgbox cluster.value
end usb

dit werkt niet... hij geeft de waarde van de listbox niet door aan de sub.. iemand een oplossing?

 

[Roncancio]

Waarom niet de code om de waarde van de listbox weer te geven onder de OK-knop plaatsen?

Public Sub Ok_Click()

MsgBox cluster.Value
End Sub

Met vriendelijke groet,


Roncancio

 

[E v R]

Als je Call gebruikt moet je volgens mij cluster_list.Value tussen haakjes zetten,

en in je sub test moet je .value weghalen (en end sub goed schrijven)

 

[nobody11]

Waarom niet de code om de waarde van de listbox weer te geven onder de OK-knop plaatsen?

Public Sub Ok_Click()

MsgBox cluster.Value
End Sub

Met vriendelijke groet,


Roncancio

de msgbox was meer een test of het werkt of niet.. de waarde van de listbox wordt nl nog gebruikt in de sub later...
toch bedankt voor de respons!

 

[Roncancio]

Als je een waarde die in een sub gebruikt wordt, in een andere sub wilt gebruiken dan dien je de waarde buiten de subs te definiëren.

Bijvoorbeeld:

Dim lWaarde as Long

Sub Begin()
lWaarde = 100
Eind
End Sub

Sub Einde()
Msgbox lWaarde
End Sub

Je start de macro Begin en lWaarde krijgt de waarde 100.
De macro start vervolgens automatisch de macro Eind op en er verschijnt een Msgbox met de waarde 100.

Met vriendelijke groet,


Roncancio