Herbers Excel-Forum - das Archiv

In zwei ComboBox die gleiche Spalte einlesen

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
Bild

Betrifft: In zwei ComboBox die gleiche Spalte einlesen
von: edie

Geschrieben am: 07.07.2008 16:22:36

Hallo zusammen,
mit dem nachfolgenden Code, aus dem Archiv, wird die Spalte A
in eine ComboBox1, ohne Duplikate, auf der Page1 einer MultiPage1 eingelesen.

Private Sub UserForm_Initialize()
Dim aRow As Long
Dim col As New Collection
Dim iRow As Long
Dim arr() As Variant
aRow = IIf(IsEmpty(Range("A65536")), Range("A65536").End(xlUp).Row, 65536)
On Error Resume Next
For iRow = 7 To aRow
col.Add Cells(iRow, 1), Cells(iRow, 1)
If Err = 0 Then
ComboBox1.AddItem Cells(iRow, 1)
Else
Err.Clear
End If
Next iRow
End Sub


Nun möchte ich, dass in der ComboBox2 auf der Page2 der MultiPage1 die gleiche
Spalte, nämlich die Spalte A eingelesen wird. Das funktioniert leider nicht.
Hat jemand eine Idee oder Lösung wie man das Problem behebt?
Ohne Duplikate einlesen ist wichtig.
Vielen Dank im Voraus.
Grüße

Bild

Betrifft: AW: In zwei ComboBox die gleiche Spalte einlesen
von: Hajo_Zi
Geschrieben am: 07.07.2008 16:26:37
Hallo Edie,
nach Zeile
ComboBox1.AddItem Cells(iRow, 1)
hätte ich
ComboBox2.AddItem Cells(iRow, 1)
geschrieben

Bild

Betrifft: AW: In zwei ComboBox die gleiche Spalte einlesen
von: edie

Geschrieben am: 07.07.2008 18:13:03
Hallo Hajo,
ich hatte es auch mittlerweile probiert aber ohne Erfolg.
Nun habe ich das Problem mit einer zusätzlichen Variablen
Dim colb As New Collection gelöst. Jetzt funktioniert es.
Vielen Dank.
Grüße

 Bild
Excel-Beispiele zum Thema "In zwei ComboBox die gleiche Spalte einlesen"
ComboBox als Symbol Alle ComboBoxes auf Position 1
Werte in eine ComboBox einer UserForm übernehmen ComboBox in Abhängigkeit einer 2. ComboBox ein-/ausblenden
ComboBox mit Monatsnamen füllen Mehrspaltige ComboBox
ComboBox2 in Abhängigkeit von ComboBox1 bestücken Nur Zellen mit Inhalt in ComboBox listen
Neue UserForm bedingt nach ComboBox-Auswahl aufrufen Neues Element in ComboBox