nur Textboxen in Userform ändern ???

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
Bild

Betrifft: nur Textboxen in Userform ändern ???
von: iven_s
Geschrieben am: 13.10.2003 20:28:20

Hallo,
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
Bild


Betrifft: AW: nur Textboxen in Userform ändern ???
von: Hajo_Zi
Geschrieben am: 13.10.2003 20:32:31

Hallo Iven


Private Sub CommandButton1_Click()
'   erstellt von Hajo.Ziplies@web.de 13.10.03
' http://home.media-n.de/ziplies/
'   Textboxen leeren
    Dim ObCb As Object
    For Each ObCb In Me.Controls
        If TypeName(ObCb) = "TextBox" Then ObCb.PasswordChar = "*"
    Next ObCb
End Sub



Falls Code vorhanden wurde dieser getestet unter Betriebssystem XP Pro und Excel Version XP SBE.
Bitte kein Mail, Probleme sollen im Forum gelöst werden.

Microsoft MVP für Excel

Das Forum lebt auch von den Rückmeldungen.

http://home.media-n.de/ziplies/



Bild


Betrifft: Danke Hajo, funtioniert prächtig. iven_s
von: iven_s
Geschrieben am: 13.10.2003 20:43:01




 Bild

Beiträge aus den Excel-Beispielen zum Thema " nur Textboxen in Userform ändern ???"