Office: UserForm Textfelder deaktivieren UND löschen

lcars11 · 26. November 2012

Hallo Ihr,

ich habe mal wieder ein Problem. Versuche gerade VBA-Code auszudünnen.
Habe eine UserForm erstellt und möchte nun mit einer checkBox einen Bereich von TextBoxen aktivieren bzw. deaktivieren. Dafür verwende ich folgenden Code:

Code:

Private Sub ZeiträumeEintragen_Click()

Dim crtl As Control

If ZeiträumeEintragen = True Then

For Each crtl In Me.Controls
If crtl.Name Like "UrlaubZeitraum*" Or _
crtl.Name Like "BemerkungZumUrlaub" Or _
crtl.Name Like "LabelUrlaub*" _
Then crtl.Enabled = True
Next

Else

For Each crtl In Me.Controls
If crtl.Name Like "UrlaubZeitraum*" Or _
crtl.Name Like "BemerkungZumUrlaub" Or _
crtl.Name Like "LabelUrlaub*" _
Then crtl.Enabled = False
Next

End If

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Nun möchte ich nicht nur die Buttons deaktivieren veim deaktivieren der checkbox, sondern auch vorhandene Eingaben löschen. Möchte nicht jede TextBox einzeln ansprechen, dass versuche ich gerade zu verhindern, aber meine If- Anweisung kann die Felder nur deaktivieren. .Habe es schon mit ctrl.clear und diversen anderen sachen versucht. KAnn mir wer helfen?

Grüße Anja

:)

EarlFred · 28. November 2012

Hallo Anja,

den äußeren IF-Block kannst Du vergessen:
Code:

Private Sub ZeiträumeEintragen_Click()

Dim crtl As Control

For Each crtl In Me.Controls
If crtl.Name Like "UrlaubZeitraum*" Or _
crtl.Name Like "BemerkungZumUrlaub" Or _
crtl.Name Like "LabelUrlaub*" Then
If TypeOf crtl Is MSForms.TextBox And Not(ZeiträumeEintragen) Then
crtl.Text = ""
End If
crtl.Enabled = ZeiträumeEintragen
End If
Next

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Man braucht keine eigene Methode, um einen String zu leeren - ihn = "" (oder vbNullString) zu setzen sollte für den Hausgebrauch auch reichen *wink.gif*

Bei mir hieße die Variable ctrl wie control *wink.gif*

Grüße
EarlFred

lcars11 · 28. November 2012

Hallo EarlFred,

So schnell hab ich nicht mit einer Antwort gerechnet, vielen Dank.
Genau diese Art der Code Optimierung habe ich gemeint.

Habe wieder ein größeres Projekt (userdatenbank erstellen) vor mir und wäre froh, wenn ich ab und zu auf deine Hilfe zurückgreifen dürfte wenn ich nicht weiter komme.
Die UserForm soll dafür sowohl als Eingabemaske als auch zum Aufruf/Änderung von Datensätzen verwendet werden. Access ist in der Firma nicht verfügbar, daher über Umwege wieder mit Excel.

Danke dir schon mal für die Hilfe *Smilie

Grüße Anja

Office: UserForm Textfelder deaktivieren UND löschen

UserForm Textfelder deaktivieren UND löschen

UserForm Textfelder deaktivieren UND löschen

UserForm Textfelder deaktivieren UND löschen - Similar Threads - UserForm Textfelder deaktivieren

Userform Login Benutzername in Zelle schreiben

Userform Textfeld füllen abhängig von Wert aus Combobox

Speichern unter Inhalt Textfeld Userform

textfelder in userform prüfen

Textfeld im Userform nur Zahlen zulääsig

UserForm mit Options-, Kombinations- und Textfeldern -> Bookmarks

Userform dopeelte Listeinträge in Textfeld ausgeben