Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Unerklärbar - Combobox gibt nicht alle Werte aus

Unerklärbar - Combobox gibt nicht alle Werte aus
16.01.2009 16:01:00
Jonathan
Hallo liebe Experten,
ich habe in einem Excel-File eine Userform mit Combobox erstellt. Diese soll mir Namen ausgeben, welche als Kriterium "A" in Spalte A und "Y" in Spalte B haben.
Die Daten werden gleichzeitig auch nur einmal ausgegeben.
Bis hierher funktioniert auch alles wunderbar.
Aktiviert man nun die Combobox fehlt aus bislang unerklärten Gründen der erste Name, der diese Kriterium erfüllt. Woran könnte das liegen?
Es wäre schön wenn der Code angepasst werden könnte. Vielen Dank.
Zur besseren Veranschaulichung habe ich eine Beispieldatei hochgeladen.
https://www.herber.de/bbs/user/58483.xls
Gruß
Jonathan
Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Unerklärbar - Combobox gibt nicht alle Werte aus
16.01.2009 16:22:33
Heinz
Hi,
damit:
cboPM.RemoveItem (cboPM.ListIndex = 0)
löschst du den ersten Eintrag deiner Box und das ist genau Name 6
mfg Heinz
AW: Unerklärbar - Combobox gibt nicht alle Werte aus
16.01.2009 16:26:00
Josef
Hallo Jonathan,
Heinz hat dir den Fehler ja bereits aufgezeigt.
Hier der Code ein bisschen verändert.
Private Sub UserForm_Initialize()
    Dim dic1 As Object
    Dim iRow1 As Long, ALetzte1 As Long
    
    ALetzte1 = IIf(IsEmpty(Range("G65536")), Range("G65536").End(xlUp).Row, 65536)
    
    Set dic1 = CreateObject("scripting.dictionary")
    
    On Error Resume Next
    
    For iRow1 = 1 To ALetzte1
        If Sheets("Daten").Cells(iRow1, 1).Value = "A" And Sheets("Daten").Cells(iRow1, 2).Value = "Y" Then
            If Not IsEmpty(Cells(iRow1, 7)) Then
                dic1.Add Cells(iRow1, 7).Value, Cells(iRow1, 7).Value
            End If
        End If
    Next
    
    On Error GoTo 0
    
    cboPM.List = dic1.items
    
    dic1.RemoveAll
    Set dic1 = Nothing
End Sub

Gruß Sepp

Anzeige
AW: Unerklärbar - Combobox gibt nicht alle Werte aus
16.01.2009 16:43:35
Jonathan
Hallo,
vielen Dank für die Antworten.
Es sind manchmal Kleinigkeiten.... =)
Nun funktioniert es wie es soll.
Gruß
Jonathan
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige