variablen über USerForms übergeben
30.06.2014 11:46:27
Knoof
Hallo,
Ich habe eine UserForm1 in der textfelder gefüllt werden: txtanrede, txtname, txtvorname.
durch klick eines Buttons in UserForm1 öffnet sich die UserForm2 welche ein Textfeld enthält in der ein default text drin steht.
dieser Default text soll sich an den variablen txtanrede, txtname, txtvorname bedienen.
Mein Code:
Modul1 (globale variablen festlegen):
Global name As String
Global vorname As String
Global anrede As String
Durch Klick auf button in UserForm1 (inhalt der txtfelder auf variablen packen):
Private Sub cmdtext_Click()
name = txtname.Value
vorname = txtvorname.Value
anrede = txt.anrede.Value
If anrede = "sehr geehrter" Then
anrede = "Herr"
Else
anrede = "Frau"
End If
UserForm2.Show
End Sub
Und in UserForm2 soll der Inhalt nun verwendet werden:
Private Sub UserForm_Initialize()
TextBox1.Value = "Es bediente Sie " & anrede & " " & vorname & " " & name
End Sub
Vielen Dank.