Guten Abend,
Ich habe ein Select Case Problem in meiner Userform ^^.
In meiner Userform "Schichtaufbau" habe ich eine Textbox diese heißt "KText". Dort möchte ich kürzel reinschreiben und nach Eingabe ein Wort erhalten. Das habe ich auch schon geschafft bloß wenn mehrere Wörter in der Textbox stehen funktioniert select Case scheinbar nicht mehr. Es führt aber kein Weg daran vorbei mehr als nur eine Abkürzung in meine Textbox zu schreiben:D
Mein Code sieht bis jetzt so aus:
Private Sub Ktext_KeyPress(byVal KeyAscii As MSForms .ReturnInteger)
'Datenbank Kürzel
Select Case Schichtaufbau.KText.Value
Case ("S"), ("S,"), "S, ")
Schichtaufbau.KText.Value = "Sand"
Case ("g2"), ("g2,"), ("g2, ")
Schichtaufbau.KText.Value = "schwach kiesig"
End Select
Es gibt dazu noch viele weitere Case Varianten welche alle noch in der selben Textbox zur Anwendung kommen sollen.
Ich möchte durch die Eingabe in die Textbox "Ktext" von in diesem Fall: S, g2
Erreichen in der Textbox nach der Eingabe Sand, schwach kiesig stehen zu haben.
Ich habe es schon per Autokorrektur versucht aber hatte Schwierigkeiten sie in meine Textbox zu bekommen. Select Case ist eine neue Idee ich hoffe diesmal kann es irgendwie klappen und jemandem fällt Vvielleicht etwas dazu ein. Ich weiß nämlich nicht mehr weiter und bin auch sehr neu im VBA Bereich.
Vlg Linn