Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema CheckBox
BildScreenshot zu CheckBox CheckBox-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema CommandButton
BildScreenshot zu CommandButton CommandButton-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema Userform
BildScreenshot zu Userform Userform-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema Label
BildScreenshot zu Label Label-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema MultiPage
BildScreenshot zu MultiPage MultiPage-Seite mit Beispielarbeitsmappe aufrufen

Load Userform: Das angegebene Objekt konnte nich..


Betrifft: Load Userform: Das angegebene Objekt konnte nich.. von: Tobi93
Geschrieben am: 13.09.2017 10:54:59

Liebe Excelianer,

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

  

Betrifft: Doppelt owT von: SF
Geschrieben am: 13.09.2017 10:55:58




  

Betrifft: Erledigt danke! von: Tobi93
Geschrieben am: 13.09.2017 10:58:09

hat sich eine Lösung gefunden, danke!


Beiträge aus den Excel-Beispielen zum Thema "Load Userform: Das angegebene Objekt konnte nich.."