Teilstring Textbox
13.11.2019 08:35:13
Thomas
ich habe in einer TextBox einen Namen zu stehen ( Beispiel "Meier").
nun möchte ich gern den Textboxinhalt mit Hilfe zweier Checkboxen entweder zu Frau Meier oder zu Herr Meier ändern.
Dies gelingt auch mit
Const SB As String = "Frau"
Const SB2 As String = "Herr"
If CheckBox2.Value = True Then
If InStr(TextBox1, SB2) > 0 = False Then
TextBox1 = SB2 & " " & TextBox1.Text
Else
End If
End If
Jetzt muss ich aber noch irgendwie prüfen ob schon ein Herr bzw. ein Frau drin steht.
Ansonsten mache ich mit der Checkbox z.B. aus Frau Meier , Herr Frau Meier. Ich bekomme einfach das Wort Frau davor nicht weg.
~f~ mit Const SB As String = "Frau" ~f~
~f~ Const SB2 As String = "Herr" ~f~
Mein derzeitiger Ansatz geht leider auch nicht.
If Right(TextBox1, 4) = SB Then TextBox1 = Left(TextBox1, Len(TextBox1) - 4)
Ich kann zwar Frau oder Herr löschen jedoch nur wenn noch kein Nachname dahinter steht.
Herr* funktioniert leider nicht.
Hat jemand eine Lösung für mich?
https://www.herber.de/bbs/user/133159.xlsm
mfg thomas
