Mid,left,Replace Textbox.Text
11.08.2018 20:19:16
Sigi
wie kann ich folgendes Beispiel kürzer lösen?
Danke1
Sigi
Private Sub CommandButton1_Click()
TextBox1.Value = "txtRaum_Tische_Anzahl1"
stxt = Left(TextBox1, Len(TextBox1) - 1)
stxt = Mid(stxt, 8)
stxt = Replace(stxt, "_", " ")
Ergebnis: Tische Anzahl
End Sub