Supportnet / Forum / Tabellenkalkulation
Großbuchstaben in Textbox/Userform
Frage
Hallo Leute
Gibt es eine Möglichkeit eine Textbox in einer Userform so zu programmieren, das sie nur Großbuchstaben nimmet?
Beispiel: Ich schreibe [b]1rj01[/b]
und in der Textbox soll [b]1RJ01[/b] stehen.
Ist das möglich???
Gruß Kaleun
Antwort 1 von Michael
Ja, es ist möglich.
Hier der Code für die Textbox1:
In der Userform sind ein Textfeld,
zwei CommandButton.
Einer ist nur dazu da, umd das Ergebnis sehen zu können.
--------------Code-------------
Option Explicit
Dim text As String ' text übernimmt den _ Inhalt aus der Textbox
Private Sub CommandButton1_Click()
UserForm1.Hide 'Form ausblenden
End Sub
Private Sub TextBox1_AfterUpdate()
text = Me.TextBox1.text
'Übergabe des Inhalts aus der Textbox _ an die Variable
Me.TextBox1 = Format(text, ">")
'Das _ eigentliche Format, alles in GROß _ durch ">", soll alles in klein sein, _ dann "<" verwenden
End Sub
--------ENDE------------------
Alles in VBA F11, Codeansicht
Hier der Code für die Textbox1:
In der Userform sind ein Textfeld,
zwei CommandButton.
Einer ist nur dazu da, umd das Ergebnis sehen zu können.
--------------Code-------------
Option Explicit
Dim text As String ' text übernimmt den _ Inhalt aus der Textbox
Private Sub CommandButton1_Click()
UserForm1.Hide 'Form ausblenden
End Sub
Private Sub TextBox1_AfterUpdate()
text = Me.TextBox1.text
'Übergabe des Inhalts aus der Textbox _ an die Variable
Me.TextBox1 = Format(text, ">")
'Das _ eigentliche Format, alles in GROß _ durch ">", soll alles in klein sein, _ dann "<" verwenden
End Sub
--------ENDE------------------
Alles in VBA F11, Codeansicht
Antwort 2 von Kaleun
@Michael
funktioniert prima
Danke
Kaleun
funktioniert prima
Danke
Kaleun

