Pages in Multipages kopieren
16.07.2015 10:19:17
Uli
ich habe meine Userform leider noch nicht ganz fertig und bin wieder mal an meine Grenze gestoßen.
Meine Userform hat eine Textbox (txtgesamtw), in der nach der Anzahl der Wohneinheiten gefragt wird. Darunter habe ich eine Multipage mit einer Seite (Page1) angelegt. Auf dieser Seite sind mehrere Textboxen angelegt, die nach ausfüllen in meine Tabelle eingetragen werden.
Wenn ich nun in die Textbox eine Anzahl eingebe (bsp: 3), dann kopiert meine Prozedur die Page 1 noch zweimal mit denselben Textfeldern. Nur, wie heißen diese Textfelder auf den neuen Seiten nun?
ein Code lautet:
Private Sub txtGesamtW_Change()
Dim x As Integer
Dim anzahl As Integer
anzahl = Me.txtGesamtW
x = 2
With MultiPage1
Do
If x anzahl
End With
End Sub