hab wieder mal ein Problem :)
habe folgenden code:
Sub machs()
Dim Neue_Seite As Object
Set Neue_Seite = ThisWorkbook.VBProject.VBComponents("UserForm1").Designer.Controls(" _
Multipage1").Pages.Add 'Neue Seite einfügen
With Neue_Seite
.Name = "Page" & ActiveWorkbook.Sheets.Count - 2
.Caption = ActiveWorkbook.Sheets.Count - 2
.Controls.Add ("Forms.ListBox.1")
.Name = "ListBox" & ActiveWorkbook.Sheets.Count - 2
.Top = 6: .Left = 0:
.Width = 755: .Height = 375
End With
End Sub
Das Problem ist, daß die erzeugte listbox mit .top .left .width und .height nicht geändert werden kann.Es wird ein Laufzeitfehler 438 "Objekt unterstützt dies Eigenschaft oder Methode nicht" ausgeworfen.
Aber diese Befehle sind doch für Listboxen vorhanden. Das Ändern des Namens der listbox funktioniert ja auch
Hat jemand einen Lösungsvorschlag?
Danke und Grüße
Marco