Office: eine initialisierung für mehrere Comboboxen

Hallo,

arbeite mit Office 2003

kurz zu den Gegebenheiten:
Ich habe eine Datei ProduktABC.xls. In dieser Datei befinden sich drei Tabellenblätter. Das erste ist die Übersicht. 2. ist die Historienübersicht und 3. ist die Baugruppen übersicht.
Auf dem 1. Blatt befinden sich eine reihe Buttons, mit den ich z.B. eine Lieferung, Auslieferung, Einlagerung, oder Defekt erfassen kann.
Wenn z.b. eine Baugruppe geliefert wird, drücke ich den Button "Lieferung" und per Macro wird dies auf der Historien Seite vermerkt. Dafür habe ich noch ein UserForm angelgt, in dem man noch ein reihe zusätzlicher Informationen eintragen kann und auch die Seriennummer des betreffenden Baugruppe aus einer Combobox auswählen kann. Die Combobox lassse ich mit den vorhanden Seriennummer auf dem 3. Tabellenblatt füllen. Und hier ist meine Frage:

Code der Initialisierung
Code:

Ich rufe ja die Combobox über With UserForm1.seriennummer auf.

Und wenn ich jetzt ein zweites UserForm (z.b. UserForm2) habe, mit der Combobox (z.b. Seriennummer) müsste ich wieder eine zweite Funktion schreiben und die würde sich nur in dem Punkt unterscheiden, dass statt
Code:

jetzt
Code:

stehen würde.

Gibt es eine Möglichkeit, dass ich ein Funktion so formuliere, dass ich mit jedem UserForm diese eine Funktion zum befüllen meiner ComboBox benutzen kann?

Gruß
David

:)

 

Moin, David,

was wäre eigentlich, wenn es nur eine Userform gäbe, die bei Bedarf mit den passenden Funktionen ausgestattet bzw. diese freigeben würde?

 

mhh, das wäre natürlich auch eine Lösungsmöglichkeit.. die sogar sehr interessant klingt.

wie kann ich den ein uf so gestalten, dass die richtigen eingabe felder erscheinen, wenn ich entweder den button "Auslieferung" oder den Button "Einlagerung" auswähle?

gruß
david

 

Moin, David,

das liegt doch daran, was für Überschriften oder Einlesebereiche/Funktionen Du per Button einfügen lässt - genau wie die Verzweigung bei der Schaltfläche OK/Übernehmen, durch die ein Hinweis auf den auszuführenden Befehl gegeben werden muss (entweder durch einen Zusatz in der Beschriftung oder durch die Verwendung einer globalen Variable)...

 

Hallo,

geht es, dass ich im "Private Sub UserForm1_Initialize()", dem userform textboxen und buttons hinzufüge? Wenn ja, wie würde der code dafür lauten?

Gruß
dAVID

 

Moin, David,

Userform "on the fly" als Ansatz...

 

super danke