ich habe eine TextBox1 auf einer UF, hier möchte ich, wenn man
"zu" (egal ob Groß oder Klein geschrieben)als Buchstaben eingibt, das "Zulassung" erscheint oder "bl" Blumen erscheint.
Geht das ?
Gruß Walter
Private Sub TextBox1_Change()
If Me.TextBox1 = "zu" Then Me.TextBox1 = "Zulassung,"
If Me.TextBox1 = "bl" Then Me.TextBox1 = "Blumen,"
If Me.TextBox1 = "bv" Then Me.TextBox1 = "Benutzungsvertrag,"
If Me.TextBox1 = "so" Then Me.TextBox1 = "Sonstiges:"
End Sub
Private Sub TextBox1_Change()
TextBox1 = WorksheetFunction.Substitute(TextBox1, "zu", "Zulassung,")
TextBox1 = WorksheetFunction.Substitute(TextBox1, "bl", "Blumen,")
TextBox1 = WorksheetFunction.Substitute(TextBox1, "bv", "Benutzungsvertrag,")
TextBox1 = WorksheetFunction.Substitute(TextBox1, "so", "Sonstiges:")
End Sub
Private Sub TextBox1_Change()
TextBox1 = WorksheetFunction.Substitute(TextBox1, "zu ", "Zulassung,")
TextBox1 = WorksheetFunction.Substitute(TextBox1, "bl ", "Blumen,")
TextBox1 = WorksheetFunction.Substitute(TextBox1, "bv ", "Benutzungsvertrag,")
TextBox1 = WorksheetFunction.Substitute(TextBox1, "so ", "Sonstiges:")
End Sub