nur Textboxen in Userform ändern ???
13.10.2003 20:28:20
iven_s
ich habe ein userform mit 5 Textboxen und zwei CommandButtons. Durch klicken des 1. Buttons soll die PasswordChar Eigenschaft auf "*" gesetzt werden. Durch klicken des 2. Buttons wieder zurück.
Beispielcode für den ersten CommandButton
Private Sub CommandButton1_Click()
Dim mycontrol As TextBox
For Each mycontrol In Controls
With mycontrol
.PasswordChar = "*"
End With
Next
End Sub
Dieser Code liefert allerdings einen Fehler "Laufzeitfehler 13 Typen unverträglich".
Vermutlich werden die Commandbuttons mit einbezogen und diese haben die o.g. Eigenschaft nicht.
Hat jemand eine Idee wie's richtig geht?
iven_s
Anzeige