Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1040to1044
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

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

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

38 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige