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
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen