Dieses Forum nutzt Cookies
Dieses Forum verwendet Cookies, um deine Login-Informationen zu speichern, wenn du registriert bist, und deinen letzten Besuch, wenn du es nicht bist. Cookies sind kleine Textdokumente, die auf deinem Computer gespeichert werden. Die von diesem Forum gesetzten Cookies werden nur auf dieser Website verwendet und stellen kein Sicherheitsrisiko dar. Cookies aus diesem Forum speichern auch die spezifischen Themen, die du gelesen hast und wann du zum letzten Mal gelesen hast. Bitte bestätige, ob du diese Cookies akzeptierst oder ablehnst.

Ein Cookie wird in deinem Browser unabhängig von der Wahl gespeichert, um zu verhindern, dass dir diese Frage erneut gestellt wird. Du kannst deine Cookie-Einstellungen jederzeit über den Link in der Fußzeile ändern.

Laufzeitfehler '424' Objekt erforderlich
#1
Hi Leute,

ich bin wahrscheinlich einfach zu blöd und, weil mich so eine Kleinigkeit nicht zur Weißglut treiben soll, habe ich mich entschieden, die Community zu Fragen, die wahrscheinlich etwas mehr Ahnung von der Sache hat.
Ich kann auch gerne eine Beispieldatei anfügen, wenn dies gewünscht ist. 

Einer eingefügten Form habe ich ein Makro zugewiesen, welches in einem Modul steht. 
Das Makro lautet wie folgt:

Sub Borgers_Eingabe_öffnen()

Borgers_Eingabe.Show

End Sub


Es soll das Formular Borgers_Eingabe geöffnet werden, welches bei (Name) genauso betitelt ist (Zwischenzeitlich hieß es auch anders. Könnte das auch ein Grund sein? (Jedoch funktioniert der alte Name auch nicht.)).
Bei anderen Tabellen funktioniert der Code einwandfrei.

Also ich bin mir jetzt nicht sicher, ob diese Informationen schon ausreichend sind, ansonsten kann ich wie gesagt auch gerne die Beispieldatei veröffentlichen.

Erstmal tausend Dank für eure Hilfe und noch einen angenehmen Abend!

Beste Grüße

Nils Tenkotte
Antwortento top
#2
Hallo,

zeige mal die Datei.
Viele Grüße
Klaus-Dieter
Der Erfolg hat viele Väter, 
der Misserfolg ist ein Waisenkind
Richard Cobden
Antwortento top
#3
Erstmal vielen Dank für Ihre Mühe.

Für Sie zur Information im Tabellenblatt Borgers funktioniert Projekt bearbeiten auch nicht. 
Komischerweise funktioniert bei Architekt das Laden der Userform.


Angehängte Dateien
.xlsm   Dokumentationen abgeschlossene Bauvorhaben - Kopie.xlsm (Größe: 66,8 KB / Downloads: 3)
Antwortento top
#4
Es gibt nirgendwo ein 'Eingabe_Borgers' Userform, wohl ein Borgers_Eingabe

Es wäre besser nur 1 Userform zu verwenden (eventuell mit Multipage).
Und schau mal hier: https://www.snb-vba.eu/VBA_Fill_combobox_listbox.html

Code:
Sub UserForm_Initialize()

    With Eingabe_Borgers.DropDown_Anrede
        .AddItem "Herr"
        .AddItem "Frau"
    End With

    With Eingabe_Borgers.DropDown_Ort
        .AddItem "Stadtlohn"
        .AddItem "Ost"
        .AddItem "Süd"
    End With
   
    Eingabe_Borgers.DropDown_Ort.ListIndex = 0
   

End Sub
Zum übersetzen von Excel Formeln:

http://dolf.trieschnigg.nl/excel/index.p...gids=en+de
Antwortento top
#5
Hallo,

da gibt es eine ganze Reihe von Fehlern. Hier habe ich die Zeilen, die den Fehler verursachen, mal auskommentiert:

Code:
Public Sub UserForm_Initialize()
    Dim Anrede
'    If Borgers_Eingabe.DropDown_Anrede.ListIndex = 1 Is Nothing Then
        With Borgers_Eingabe.DropDown_Anrede
            .AddItem "Herr"
            .AddItem "Frau"
        End With
'    End If
'    If Borgers_Eingabe.DropDown_Ort.ListIndex = 1 Is Nothing Then
        With Borgers_Eingabe.DropDown_Ort
            .AddItem "Stadtlohn"
            .AddItem "Ost"
            .AddItem "Süd"
        End With
            Borgers_Eingabe.DropDown_Ort.ListIndex = 0
'    End If
End Sub

Wobei noch zu erwähnen wäre, dass das Eintragen des Formularnamens hier überflüssig ist, weil sich der Quelltext im Modul des Formulars befindet. Der bearbeitete Quelltext:

Code:
Public Sub UserForm_Initialize()
    Dim Anrede
        With DropDown_Anrede
            .AddItem "Herr"
            .AddItem "Frau"
        End With
        With DropDown_Ort
            .AddItem "Stadtlohn"
            .AddItem "Ost"
            .AddItem "Süd"
        End With
            DropDown_Ort.ListIndex = 0
End Sub


Noch schlimmer ist es hier (Formular Borgers_Projektsuche):

Code:
Sub UserForm_Initialize()
    With DropDown_Anrede
        .AddItem "Herr"
        .AddItem "Frau"
    End With
    With DropDown_Ort
        .AddItem "Stadtlohn"
        .AddItem "Ost"
        .AddItem "Süd"
    End With
    DropDown_Ort.ListIndex = 0
End Sub

Da versuchst du, Objekte zu befüllen, die es beide nicht gibt. Weiter habe ich noch nicht gesucht.
Viele Grüße
Klaus-Dieter
Der Erfolg hat viele Väter, 
der Misserfolg ist ein Waisenkind
Richard Cobden
Antwortento top
#6
Vielen Dank euch Klaus Dieter und snb! Funktioniert wieder einwandfrei

ich habe durch eure Antworten schon einiges dazu gelernt!

Euch schonmal ein schönes Wochenende!
Antwortento top


Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste