|
Abhängig davon wie man die UserForms erstellt, kann das unterschiedlich aussehen.
Hier mal ne schnelle Variante (Beispiel):
'/////////////////
'// UserForm1
'/////////////////
Option Explicit
Private m_strStructure As String
Private Sub UserForm_Click()
UserForm2.Show
End Sub
Private Sub UserForm_Initialize()
Me.Caption = "Klick mich!"
'UserForm1 erhält einen belieben Text durch Benutzereingabe
Do
m_strStructure = InputBox("Geben sie etwas ein:", Me.Name, "Ein Beispiel")
If m_strStructure = CStr(False) Then m_strStructure = ""
Loop Until Trim$(m_strStructure) <> ""
End Sub
Public Property Get Structure() As String
Structure = m_strStructure
End Property
'/////////////////
'// UserForm2
'/////////////////
Option Explicit
Private Sub UserForm_Activate()
MsgBox UserForm1.Structure, Title:=Me.Name
End Sub
Private Sub UserForm_Initialize()
Me.StartUpPosition = 0 'Manuell positionieren
Me.Left = UserForm1.Left + UserForm1.Width + 2 * (UserForm1.Width - UserForm1.InsideWidth)
Me.Top = UserForm1.Top
End Sub
UserForm1 starten, Eingabe tätigen, auf UserForm1 klicken -> UserForm2 geht auf und es erfolgt die zuvor eingegebene Eingabe in einer MessageBox.
Die Eingabe wurde aus UserForm1 wird mittels Property-Get (UserForm1.Structure) abgerufen.
Gruß
|