individueller Inhalt von TextBox durch Buttons
01.07.2014 08:59:34
TextBox
In meiner UserForm1 habe ich 4 Buttons "Text bearbeiten".
Diese Buttons sollen alle die gleiche UserForm3 öffnen welche eine TextBox enthält.
Jedoch soll jeder Button einen verschiedenen Default text in die Textbox schreiben.
Bisher krieg ich es nur hin das jeder Button den gleichen Text hinein schreibt :/
--->Button "text bearbeiten" in UserForm1 (1er von 4)
Private Sub cmdtext1_Click()
If txtvon1 = "" Then
MsgBox ("Bitte tragen Sie ein Anfangsdatum ein!")
ElseIf txtbis1 = "" Then
MsgBox ("Bitte tragen Sie ein Endedatum ein!")
ElseIf txtname = "" Then
MsgBox ("Bitte tragen Sie einen Nachnamen ein!")
ElseIf txtanrede = "" Then
MsgBox ("Bitte tragen Sie eine Anrede ein!")
Else
dat1 = txtvon1.Value
dat2 = txtbis1.Value
nam2 = txtname.Value
nam1 = txtvorname.Value
anr = txtanrede.Value
If anr = "Sehr geehrter Herr" Then
anr = "Herr"
Else
anr = "Frau"
End If
UserForm3.Show
End If
End Sub
---> schreiben des Default Textes in UserForm3 TextBox1
Private Sub UserForm_Initialize()
TextBox1.Value = "Es bediente Sie" & anr & name &
End Sub
Wie kriege ich es nun hin, dass ich wenn ich zB den anderen "text bearbeiten" Button klicke der default text "Hallo!" in die gleiche UserForm geschrieben wird?