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