Office: (Office 2019) Zentrales Modul zum Befüllen mehrerer Userforms

Hallo zusammen,

ich habe folgendes Problem:

Ich habe eine Excel Datei mit mehreren UserForms. In diesen möchte ich einige Felder vorbelegen.

Derzeit mache ich das im Code jeder UserForm immer wieder aufs neue. Einige Elemente wie z.B. cbVerwendung kommen aber in mehreren UserForms vor. Wie kann ich es bewerkstelligen, dass ich diese in einem Modul nur ein einziges Mal definieren muss und sie beim Aufruf der UserForms aus diesem Modul befüllt werden?

Das Tool habe ich der Übersichtlichkeit halber deutlich reduziert. Es werden eigentlich immer mehr UserForms, sodass ich gemerkt habe, dass redundanter Code bei Änderungen immer schwieriger zu pflegen ist.

Ich habe es in Modul1 mit einer Public Variable versucht, die ich in der Userform Hohlzylinder aufrufen möchte aber das funktioniert leider nicht.

Hat jemand eine Idee wie ich das bewerkstelligen kann? Vielen Dank im Voraus!

 

Hi,

scheibe folgende Function in ein Standardmodul:

Code:

Function Verwendung(frmElement As UserForm)
  With frmElement.Controls("cbVerwendung")
    .AddItem "Mantelraum"
    .AddItem "Mantelraum Innen"
    .AddItem "Rohrraum"
    .AddItem "Rohrraum Innen"
    .AddItem "-"
    .ListIndex = 0 'Vorbelegung "Mantelraum"
  End With
End Sub

Und in allen UserForms, in denen du die cbVerwendung füllen willst, ersetzt du den Code für das Füllen der ComboBox im Initialize-Ereignis durch diese Codezeile:

Code:

  Verwendung Me

---

 

Hallo @Beverly ,

vielen Dank! Das funktioniert tadellos!

Leider bekomme ich es nicht hin auf ähnlichem Wege eine Textbox zu füllen.

Ich habe es wie folgt probiert:

Code:

'Funktion zum Vorbelegen des Werkstoffs
Function VorbelegungWerkstoff(frmElement As UserForm)
  With frmElement.Controls("txtW")
        txtW = "P265GH"
  End With
End Function

oder

Code:

'Funktion zum Vorbelegen des Werkstoffs
Function VorbelegungWerkstoff(frmElement As UserForm)
  With frmElement.Controls("txtW")
        txtW.value = "P265GH"
  End With
End Function

ruft die Fehlermeldung Überlauffehler '424' hervor, dass kein Objekt vorhanden wäre. Liegt es daran, dass die Textbox zu diesem Zeitpunkt noch nicht bekannt ist?

 

Hi,

mit
With frmElement.Controls("txtW") beziehst du dich doch bereits auf das Steuerelement - der Code muss folglich entweder so aussehen:

Code:

Function VorbelegungWerkstoff(frmElement As UserForm)
  With frmElement.Controls("txtW")
        .Value = "P265GH"
  End With
End Function

oder einfach so, da du ja nur 1 Parameter übergeben willst:

Code:

Function VorbelegungWerkstoff(frmElement As UserForm)
  frmElement.Controls("txtW") = "P265GH"
End Function

---

 

urks, da hätte ich echt drauf kommen können...

Vielen Dank Beverly! :)