Änderung Eigenschaften listbox
Marco
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
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
Anzeige