UserForm_Initialize
27.06.2006 08:51:37
Thommy
Folgendes Anliegen bzw. Frage:
Ich habe eine Excel-Tool programmiert in dem ich eine UserForm erstellt habe.
In diesem Tool hab ich u. a. 3 ComboBoxen, in denen ich diverse Auswahlmöglichkeiten hinterlegt habe, z.B. Kundenauswahl, Lieferantenauswahl oder wie auch immer!
Ich habe nun das Problem, dass es jeweils so um die 100 (oder mehr) Auswahlmöglichkeiten gibt.
Momentan ist mir nur folgende Lösung bekannt:
Private Sub UserForm_Initialize()
KundenNr.AddItem Sheets("Kundenstamm").Range("A4").Value
KundenNr.AddItem Sheets("Kundenstamm").Range("A5").Value
KundenNr.AddItem Sheets("Kundenstamm").Range("A6").Value
KundenNr.AddItem Sheets("Kundenstamm").Range("A7").Value
KundenNr.AddItem Sheets("Kundenstamm").Range("A8").Value
KundenNr.AddItem Sheets("Kundenstamm").Range("A9").Value
KundenNr.AddItem Sheets("Kundenstamm").Range("C9").Value
usw. bis z.B.
KundenNr.AddItem Sheets("Kundenstamm").Range("C200").Value
FirmenNr.AddItem Sheets("Firmenstamm").Range("A4").Value
FirmenNr.AddItem Sheets("Firmenstamm").Range("A5").Value
FirmenNr.AddItem Sheets("Firmenstamm").Range("A6").Value
FirmenNr.AddItem Sheets("Firmenstamm").Range("A7").Value
FirmenNr.AddItem Sheets("Firmenstamm").Range("A8").Value
FirmenNr.AddItem Sheets("Firmenstamm").Range("A9").Value
usw. bis z.B.
FirmenNr.AddItem Sheets("Firmenstamm").Range("A200").Value
usw.
sind halt ne Menge Auswahlabfragen (oder wie man das bezeichnet).
So wenn ich nun die UserForm starten möchte, kommt dann die Fehlermeldung
"Fehler beim Komplimieren: Prozedur zu groß"
mir ist leider keine andere Auswahlabfrage bekannt, außer wie oben beschrieben.
Gibt es eine Möglichkeit z.B. dass man sagt
FirmenNr.AddItem Sheets("Firmenstamm").Range("A9").Value bis
FirmenNr.AddItem Sheets("Firmenstamm").Range("A200").Value
welche die Prozedur nicht so groß werden lassen würde!?!
Wäre auch für mich zum programmieren einfacher, wie die ganzen Zeilen jeweils einzutragen!?!?
Wie könnte ich dies einfach und schnell und machbar lösen!?!?
Bin für jede Info bzw. Hilfeleistung dankbar!!!
Danke + lg
Thommy