ich möchte eine Combobox anbieten, die sich den Inhalt aus zwei Tabellen holt,
Doppelte Namen sollen nur einmal vorkommen,
meine derzeitige Lösung ist:
*************************************************************************
'Combobox füllen
Dim exist As Boolean
For i = 1 To Worksheets("Offen").Cells(65536, 2).End(xlUp).Row
exist = False
For j = 1 To Eingabemodul.ComboBoxKreditorAlle.ListCount
If Worksheets("Offen").Cells(i, 2).Value = _
Eingabemodul.ComboBoxKreditorAlle.List(j - 1) Then _
exist = True: Exit For
Next j
If exist = False Then _
Eingabemodul.ComboBoxKreditorAlle.AddItem _
Worksheets("Offen").Cells(i, 2).Value
Next i
*************************************************************************
Dabei wird aber nur der Inhalt aus Worsheet Offen gelese,
wie kann ich noch ein oder mehrere Worksheets einbinden?
Gregor