Multipages dynamisch erzeugen
25.06.2014 13:04:53
yummi
ich versuche gerade dynamisch ein UserForm zu bestücken.
Das Anzeigen der Multipage funktioniert soweit. Was ich verzweifelt suche ist die Anzahl der Pages die angelegt werden sollen
Private Sub UserForm_Initialize()
Dim ctl As Control
Dim llast As Long
Dim i As Long
Dim iAnzPages As Integer
Set ctl = Me.Controls.Add("forms.Multipage.1", True)
llast = wks.Cells(Rows.Count, 1).End(xlUp).Row
ctl.Pages = llast - 1 'hier soll die Anzahl der Seiten festgelegt werden
With ctl
.Left = 270
.Top = 12
.Width = 546
.Height = 276
.Font.Size = 12
.ForeColor = &H80000012
.Visible = True
'.BackColor = &H80&
For i = 2 To llast
.Pages(i - 2).Caption = wks.Cells(i, 1).Value
Next i
End With
End Sub
Vielen Dank für Eure Hilfe
yummi