Textboxen alle große Buchstaben

Hallo zusammen,
habe im Makro das eingebaut:

Private Sub TextBox1_AfterUpdate()
ActiveSheet.Range("D14") = UCase(TextBox1)
TextBox1 = ActiveSheet.Range("D14").Value
Buchstabe wird direkt groß angezeigt klappt also, möchte aber
für die 30 Textboxen dies Zentral hinterlegen, wenn es geht.
z.B. hier rein, hatte dies auch vom Forum:
iTopt = 45
For iIndxt = 1 To 31                  ' das werden 12 Label
With Controls("Textbox" & iIndxt)  ' die Label ansprechen
.Height = 15                    ' die Höhe der Label
.Left = 130                     ' die linke Position der Label
.Top = iTopt                    ' die Position von oben der Label
.Width = 25                    ' die Breite der Textbox
'  .Caption = "Label" & iIndxt & " Top " & iTopt         ' der Inhalt der Label
.Font.Name = "Arial"
.Font.Size = 9                 ' die Schrift-Größe der Label
.TextAlign = 1                 ' die Ausrichtung des Textes im Label
.UCase  ?
End With
iTopt = iTopt + 15               ' wie eng untereinander
Next iIndxt
geht das auch Zentral für dieses Makro:

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
Select Case KeyAscii
Case 65 To 90, 97 To 122
Case Else
KeyAscii = 0
MsgBox "Nur Buchstaben eingeben !"
End Select
End Sub

gruß kurt k

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo allerseits.
habe schon mal dies erstellt, funktioniert auch.
Dies steht in der
UserForm_Initialize
'---------- für Klassenmodul -----------------------------
Dim i As Integer
For i = 1 To 31
Set txtTextboxen(i) = New clsTextboxen
Set txtTextboxen(i).cTextbox = Me.Controls("TextBox" & i)
Next i
For i = 32 To 62
Set txtTextboxen(i) = New clsTextboxen
Set txtTextboxen(i).cBeginnTextbox = Me.Controls("TextBox" & i)
Next i
'---------------------------------------
'------- nur texte erlaubt ---------------------

Private Sub cTextbox_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If Chr(KeyAscii) Like "[a-z A-Z]" = False Then
MsgBox "Nur Buchstaben eingeben !"
KeyAscii = 0
End If
End Sub

'----- nur zahlen erlaubt ----------

Private Sub cBeginnTextbox_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
Select Case KeyAscii
Case 48 To 57
Case Else
MsgBox "Nur Zahlen erlaubt !"
KeyAscii = 0
End Select
End Sub

wo bzw. setze ich jetzt: UCase(TextBox1) ein
gruß
kurt k

Beliebteste Forumthreads (12 Monate)

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Textboxen alle große Buchstaben

10 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread