Load Userform: Das angegebene Objekt konnte nich..
13.09.2017 10:54:59
Tobi93
ich habe ein Problem bei dem ich einfach nicht weiter komme. Es geht um die Generierung von Labeln/Textfeldern in einer Userform: "Vergleichsanlagen". Dies soll durch CommandButton1_Click() in einer anderen Userform:"Anzahl_Vergleichsanlagen" ausgelöst werden.
Die Anzahl der Label/Textfelder ist abhängig von einer global definierten Variable x. Eigentlich hat der Code schon funktioniert, aber jetzt kommt auf einmal die Fehlermeldung: "Das angegebene Objekt konnte nicht gefunden werden."
Ein Click auf Debuggen verweist auf die Zeile: Load Vergleichsanlagen. Warum ist das so. Es handelt sich hier doch um eine Userform die geladen werden soll, warum also die Fehlermeldung? Vielleicht sollte ich dazu noch sagen, dass die Label/Textfelder auf einer Multipage generiert werden sollen.
Private Sub CommandButton1_Click()
'Variablen Definitionen
Dim myLabel As Object
Dim AbstandLabel As Integer
Dim i As Integer
'Laden der UserForm: Vergleichsanlagen
Load Vergleichsanlagen
'Spaltenanzahl nach x d.h. WEA Anzahl
For i = 1 To x
'Label Generierung
Set myLabel = Vergleichsanlagen.MultiPage1.Pages(2).Controls.Add("Forms.Label.1", "WEA_Name" & _
i, True)
With myLabel
.Caption = "WEA " & i
AbstandLabel = 78 + (120 * (i - 1))
.Left = AbstandLabel
.Top = 18
.Width = 96
.Height = 18
End With
Next i
End Sub