Controls auf Multipage leeren

[StefKe]

Hallochen allerseits, mit

Code:

Private Sub CommandButton1_Click()
    Dim ObCb As Object
    For Each ObCb In Erfassung.Controls
    If TypeName(ObCb) = "TextBox" Then ObCb.Value = ""
    Next ObCb
End Sub

werden alle Textboxen der Userform geleert. Besteht eine Möglichkeit bei einer Mulitpage das auf eine bestimmte Seite einzugrenzen, oder ist der Versuch eher sinnlos?

Danke
Stefan

[Flotter Feger]

Hallo,

wenn du doch nur im ersten Register bleiben willst, warum machst du das dann nicht auch im Code ?

For Each ObCb In MultiPage1.Pages(0).Controls
    If TypeName(ObCb) = "TextBox" Then ObCb.Value = ""
Next


Sabina

[StefKe]

wenn du doch nur im ersten Register bleiben willst, warum machst du das dann nicht auch im Code ?

...weil ich manchmal ein Brett vor dem Kopf habe    

Danke
Stefan