Textfelder leeren
Gordon
habe eine Frage bzgl. des Löschens von Textfeldern auf mehreren Formularen.
Bisher war es so, dass ich ein UserForm (Name: Formular) hatte, worauf, wenn es geöffnet wurde, alle Textfelder geleert wurden. Das mache ich mit diesem Code:
Sub Felder_leeren()
Dim ctrl As Object
With Formular
For Each ctrl In .Controls
If TypeName(ctrl) = "TextBox" Then
ctrl.Value = ""
End If
Next
End With
Nun habe ich ein zweites UserForm erstellt. Dieses heißt Test. Dieses wird per Button auf dem ersten Formular geöffnet. Nu möchte ich halt unabhängig jeweils auf den jeweiligen UserForm die Textfelder leeren können. Bisher dachte ich, ich müsste nur beim 'With Formular' das 'Formular' in 'Test' tauschen. Hat aber leider nicht geklappt. Es wurde immer in beiden UserForms dann alles geleert.
Was müsste ich also an dem Code oben ändern, dass es nur auf das UserForm 'Formular' angewandt wird und nicht auf das UserForm 'Test'?
Wäre der für Hilfe dankbar....
Gruß
Gordon
Anzeige