Es soll 2 Auswahlmöglichkeiten geben: Frau und Herr, ausgegeben werden sollen dann Sehr geehrte und Sehr geehrter.. Ist sowas machbar?
Private Sub ComboBox1_Click()
Select Case ComboBox1
Case Is = "Herr"
[a1] = "Sehr geehrter " 'aktuelles Sheet, Zelle A1
Case Is = "Frau"
[a1] = "Sehr geehrte " 'aktuelles Sheet, Zelle A1
End Select
End Sub
Private Sub UserForm_Initialize()
With ComboBox1
.AddItem "Herr"
.AddItem "Frau"
.ListIndex = 0 'erster Eintrag wird angezeigt
End With
End Sub
Private Sub TextBox1_AfterUpdate()
If Me.ComboBox1.ListIndex = 0 Then [a1].Value = "Sehr geehrter " & Me.TextBox1.Value
If Me.ComboBox1.ListIndex = 1 Then [a1].Value = "Sehr geehrte " & Me.TextBox1.Value
End Sub