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.: " & TextBox29 & "- " & 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.: " & TextBox29 & "- " & TextBox30 & " in Verbindung,"
If Me.ComboBox3.ListIndex = 1 Then [B150].Value = "Die Stadtführerin erwartet Sie " & TextBox31 & " zur angegebenen Uhrzeit."
End Sub
Mein Problem ist: dass TextBox29 und TextBox30 (also die Tel.Nr.) nicht mit ausgegeben werden. Wer weiss Rat?
Danke an alle die hier so toll helfen!!!