In zwei ComboBox die gleiche Spalte einlesen
07.07.2008 16:22:00
edie
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