Es geht wieder mal um ComboBoxen.
Vielleicht hat ja Jemand eine Idee.
Alle Definitionen befinden sich in einem separaten Modul.
Ich habe Typen festgelegt und anschließend Variablen definiert.
Beispiel:
Type Kostenstellensatz
ws As Worksheet
Kostenstelle As Range
Beschreibung As Range
End Type
public ks as Kostenstellensatz
sub Zuordnen()
With ks
Set .Kostenstelle = Range("A15_Kostenstelle")
Set .Beschreibung = Range("A15_Beschreibung")
set .ws = worksheets(.kostenstelle.parent.name)
end with
end sub
Ich habe nun jede Menge dieser Type/Variablen-Paare, die alle
in "Zuordnen" zugeordnet werden.
Dann habe ich eine Userform mit diversen ComboBoxen, die wie
folgt mit Daten aus den Worksheets beliefert werden:
Set Bereich = rnggetdatacolumn(ks.Kostenstelle, False)
IndexSetzen = False
With ER_Erfassung.erIKostenstelle
.Clear
For Each Zelle In Bereich
If (ks.ws.Cells(Zelle.Row, ks.Kostenstelle.Column) = "") Then Exit For
If Not ks.ws.Cells(Zelle.Row, ks.Sperre.Column) Then
.AddItem ks.ws.Cells(Zelle.Row, ks.Kostenstelle.Column)
.list(z,1) = ks.ws.Cells(Zelle.Row, ks.Beschreibung.Column)
IndexSetzen = True
End If
End If
Next
If IndexSetzen Then .ListIndex = 0
End With
Und das läuft auch !
Was mir völlig gegen den Strich geht ist, daß ich für jede Combobox immer
wieder den gleichen Text schreibe (n muß).
Hat vielleicht jemand einen Tipp, wie ich die unterschiedlichsten Daten per
Sub-Aufruf in die unterschiedlichsten Comboboxen bekomme.
Ich stelle mir eine AddIn-Routine vor.
Vielen Dank im voraus.
MAlexander