Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema MultiPage
BildScreenshot zu MultiPage MultiPage-Seite mit Beispielarbeitsmappe aufrufen

In zwei ComboBox die gleiche Spalte einlesen

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

  

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
GrußformelHomepage


  

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


 

Beiträge aus den Excel-Beispielen zum Thema "In zwei ComboBox die gleiche Spalte einlesen"