Textbox-MaxLength Problem...
robert
mit diesem Code soll nur eine einstellige Eingabe in die UF-Textboxen
möglich sein.
Funkt auch, aber siehe VBE-Eigenschaften MaxLength der Textboxen-
lt. Beispieldatei.
Gruß
robert
Option Explicit
Sub tt()
Dim cbElement As Control ' Variable für die TextBox als Steuerelement
' Schleife über alle Steuerelemente
Dim i As Long
Range("A1:C200").ClearContents
For Each cbElement In UserForm1.Controls
If TypeName(cbElement) = "TextBox" Then
cbElement.MaxLength = 1
i = i + 1
Cells(i, 1) = UserForm1.Name
Cells(i, 2) = cbElement.Name
Cells(i, 3) = cbElement.MaxLength
End If
Next cbElement
UserForm1.Show
End Sub