Office: Alle Textboxen aller Formulare entleeren

Hallo zusammen,

Ich bin noch ziemlich unerfahren was VBA angeht und versuche mich gerade an einem kleinen Projekt. Dabei soll über eine Abfolge von Formularen Werte abgefragt werden und in ein Datenblatt eingegeben werden. Am Ende dieser Abfolge kann man wieder auf das erste Formular Wechsel und die nächste Datenreihe eintragen.

Nun mein Problem:
Ich kenne zwar den Code zum entleeren aller Textboxen auf einem Formular, also diesen:


Private Sub CommandButton1_Click()

Dim objControl As Control

For Each objControl In Controls
Select Case TypeName(objControl)
Case "TextBox"
objControl.Text = ""
Case "ComboBox"
objControl.ListIndex = -1
Case "CheckBox"
objControl.Value = False
Case "OptionButton"
objControl.Value = False
End Select
Next

End Sub

Allerdings möchte Ich beim Click auf den Button "Nächste Datenreihe" alle bis dahin ausgefüllen Text- und Comboboxen auf ALLEN FORMULAREN entleeren.
*Alle Text- und Comboxen müssen befüllt werden, da ansonsten eine Fehlermeldung ausgegeben wird.*

Ich hoffe Ihr könnte mir da unter die Arme greifen.

Beste Grüße
ThoS

:)

 

warum willst Du die leeren nicht leeren?
If objControl."" then

 

mein Beitrag Bezog sich auf diese Aussage
Code:

Ich erstelle die Lösung für das was im Beitrag dargestellt wurde.
Wird diese Darstellung geändert, überlasse ich anderen die Lösung, da ich schon eine Lösung erstellt hatte und dafür Zeit investiert habe.
Ich arbeite nicht für den Papierkorb.

 

Ich erstelle die Lösung für das was im Beitrag dargestellt wurde.
Wird diese Darstellung geändert, überlasse ich anderen die Lösung, da ich schon eine Lösung erstellt hatte und dafür Zeit investiert habe.
Ich arbeite nicht für den Papierkorb.