Private Sub TextBox16_AfterUpdate()
If Me.ComboBox1.ListIndex = 0 Then [B25].Value = "Sehr geehrter Herr " & Me.TextBox16.Value & ","
If Me.ComboBox1.ListIndex = 1 Then [B25].Value = "Sehr geehrte Frau " & Me.TextBox16.Value & ","
End Sub
Private Sub TextBox17_AfterUpdate()
If Me.ComboBox2.ListIndex = 0 Then [G13].Value = "Anprechpartner: " & Me.TextBox7.Value & " " & TextBox17
If Me.ComboBox2.ListIndex = 1 Then [G13].Value = "Ansprechpartnerin: " & Me.TextBox7.Value & " " & TextBox17
End Sub
Private Sub TextBox28_AfterUpdate()
If Me.ComboBox3.ListIndex = 0 Then [B148].Value = "Bitte setzen Sie sich mit dem Stadtführer Herr " & Me.TextBox28 & " unter der Tel.: " & Me.TextBox29.Value & "- " & TextBox30 & " in Verbindung,"
If Me.ComboBox3.ListIndex = 0 Then [B150].Value = "Der Stadtführer erwartet Sie " & TextBox31 & " zur angegebenen Uhrzeit."
If Me.ComboBox3.ListIndex = 1 Then [B148].Value = "Bitte setzen Sie sich mit der Stadtführerin Frau " & Me.TextBox28 & " unter der Tel.: " & Me.TextBox29.Value & "- " & TextBox30 & " in Verbindung,"
If Me.ComboBox3.ListIndex = 1 Then [B150].Value = "Die Stadtführerin erwartet Sie " & TextBox31 & " zur angegebenen Uhrzeit."
End Sub
Private Sub UserForm_Initialize()
With ComboBox1
.AddItem "Herr"
.AddItem "Frau"
.ListIndex = 0 'erster Eintrag wird angezeigt
With ComboBox2
.AddItem "Herr"
.AddItem "Frau"
.ListIndex = 1 'erster Eintrag wird angezeigt
With ComboBox3
.AddItem "Herr"
.AddItem "Frau"
.ListIndex = 1 'erster Eintrag wird angezeigt
End With
End With
End With
End Sub
Bei ComboBox3 habe ich immer Probleme mit der Ausgabe der TextBoxen 29,30,31 !!!
Hat jemand eine Idee wie ich das anders lösen könnte damit es richtig funktioniert?
Danke...