Absturz bei Multipage.add
30.03.2009 16:02:39
TimoG
ich habe folgende Sub für meine Userform programmiert, damit zur Laufzeit noch Pages zur Multipage hinzugefügt werden.
Dim i as long
const conMaxKantenart=10
const conPrgDatei="Tabelle1.xls"
Dim wert as String
Private Sub Listen_befuellen()
For i = 3 To conMaxKantenart
MultiPage1.Pages.Add
Next
For i = 1 To conMaxKantenart
wert = Workbooks(conPrgDatei).Sheets("Listen").Range("B" & i + 2).Value
MultiPage1.Pages(i).Caption = wert
Next
End Sub
Lasse ich die Pages einzeln per Button_click Ereignis erstellen, habe ich keine Probleme.
Versuche ich hingegen, die oben angegebene Sub in das UF-Initialize Ereignis einzubauen, stürzt mir Excel jedes mal beim starten der UF ab.
Hat vielleicht Jemand eine Idee, woran das liegt, bzw. wie ich das umgehen kann?
Vielen Dank und Gruß
TimoG