Clever-Excel-Forum

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

Hallo,

zeige mal die Datei.

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.

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

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.

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!

w4mbo

Klaus-Dieter

w4mbo

snb

Klaus-Dieter

w4mbo