tonissteiner
Gebruiker
- Lid geworden
- 17 sep 2008
- Berichten
- 337
Hallo,
ik zou graag een waarde overnemen, die door een Userform gevraagd wordt in te vullen, naar een andere sub, die ik daar dan kan gebruiken.
In onderstaande code zou ik dus de waarde van xInitials in een andere code willen gebruiken:
Deze codes staan dus in een Userform.
Waarschijnlijk moet ik werken met Public enzoverder maar mijn beperkte kennis laat me in de steek.
Ook op internet vind ik na lang zoeken geen geschikte oplossing.
Alvast bedankt voor jullie reacties
ik zou graag een waarde overnemen, die door een Userform gevraagd wordt in te vullen, naar een andere sub, die ik daar dan kan gebruiken.
In onderstaande code zou ik dus de waarde van xInitials in een andere code willen gebruiken:
Code:
Private Sub UserForm_Initialize()
Set Explorer = Application.ActiveExplorer
Set CurrentItem = Explorer.Selection(1)
If CurrentItem.Class = olMail Then
Set Sender = CurrentItem.Sender
'MsgBox CurrentItem.Sender
End If
Me.LabelName.Caption = "De naam van de afzender is:" _
& vbNewLine _
& vbNewLine _
& CurrentItem.Sender _
& vbNewLine _
& vbNewLine _
& "Geef de initalen in die je wilt gebruiken om de mail op te slaan:"
End Sub
Private Sub cmdAdd_Click()
If Me.TextBoxInitals.Text = Empty Then
MsgBox "Geef de initalen in, dit tekstvak mag niet leeg zijn!", vbExclamation, "OPGELET !"
Me.TextBoxInitals.SetFocus
Exit Sub
End If
xInitials = Me.TextBoxInitals.Text
Debug.Print xInitials
Unload Me
Me.TextBoxInitals.Text = Empty
End Sub
Private Sub cmdClose_Click()
Unload Me
End Sub
Deze codes staan dus in een Userform.
Waarschijnlijk moet ik werken met Public enzoverder maar mijn beperkte kennis laat me in de steek.
Ook op internet vind ik na lang zoeken geen geschikte oplossing.
Alvast bedankt voor jullie reacties