Userform Call

[Andyle]

Hallo an alle!

Ich öffne eine UserForm.

In der ist folgendes Makro

Code:

'Neuer Eintrag Schaltfläche Ereignisroutine
Private Sub CommandButton1_Click()
    Call EINTRAG_ANLEGEN 'Aufruf der entsprechenden Verarbeitungsroutine
End Sub

Aufruf erfolgt über

Code:

If MsgBox("Dieser Artikel wurde nicht im System gefunden!" + vbCr + vbCr + "Soll der Artikel im System neu aufgenommen werden?", vbYesNo + vbQuestion, "Neuer Artikel") = vbYes Then

anlegen = "anlegen"
UserForm1.Show

    End If

Er soll die Userform öffnen und auf " Call EINTRAG_ANLEGEN" springen

Wie kompiniere ich dass, dass er auf den leeren Eintrag in der listbox springt?

Vielen dank für Eure Hinweise.

[oee]

Einfach

Code:

Call EINTRAG_ANLEGEN

in Userform_Activate (der Userform1) schreiben

[Andyle]

so, alles drin und klappt.

War allerdings noch mehr von Nöten.

Gibt es jetzt eine Möglichkeit, über einen Button die UserForm1 zu öffnen und

anlegen = "anlegen" zu setzen?

Muss aber alles über den Button funktionieren.

Ich tippe mal ein neues Makro erstellen.

Danke

---

Erledigt

Sub neuerartikel()

anlegen = "anlegen"
UserForm1.Show
End Sub

ist die Lösung!

Trotzdem vielen Dank!

[oee]

Warum "TROTZDEM" ?

[Andyle]

Wegen dem Hinweis " Userform_Activate "!

[RPP63]

*SCNR*
Lesetipp:
Amazon.com: Der Dativ ist dem Genitiv sein Tod 04: Das Allerneuste aus dem Irrgarten der deutschen Sprache: 9783462041644: Sick, Bastian: Bücher