Office: CBO in UF - AddItem und List

Hallo Forum,

in einer Datei habe ich bisher eine CBO beim Verlassen der vorherigen CBO folgendermaßen gefüllt (select case auf eins verkürzt):

Code:

Private Sub ComboBoxKunde_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    
    'je nach Auswahl in Vorgang nur bestimmte Auflistung in Lieferant_Empfänger
    With Me.ComboBoxLieferantEmpfänger
        Select Case Me.ComboBoxVorgangAbkürzung
            Case "dies und das""
                Set Rg = ThisWorkbook.Worksheets("Stammdaten").Range("Lieferant"): Set Rg = Rg.Resize(Rg.End(xlDown).Row - 1, 1)
        End Select
        .List = Rg.Resize(Rg.End(xlDown).Row).Value
    End With
    
End Sub

Da die Stammdaten aber inzwischen sehr angewachsen sind, möchte ich nun zusätzlich die Auswahl anhand des Eintrages in der ComboBoxKunde begrenzen.
Dazu steht in den Stammdaten zwei Zellen rechts neben jedem Lieferanten der dazugehörige Kunde.
So in der Art hatte ich mir das gedacht:

Code:

Private Sub ComboBoxKunde_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    
    'je nach Auswahl in Vorgang nur bestimmte Auflistung in Lieferant_Empfänger
    With Me.ComboBoxLieferantEmpfänger
        Select Case Me.ComboBoxVorgangAbkürzung
            Case "dies und das"
                For Each rgZelle In ThisWorkbook.Worksheets("Stammdaten").Range("Lieferant")
                    If rgZelle.Offset(0, 2) = Me.ComboBoxKunde Then
                        .AddItem (rgZelle)
                    Else
                        If rgZelle = "" Then Exit For
                    End If
                Next rgZelle
                
        End Select
        
    End With
    
End Sub

Mein Problem:
die CBO bleibt leer.
Wie kann ich da "set rg" und die Zeile mit dem "list" einbauen?
Oder was fehlt da sonst?

Oder ist mein Ansatz komplett verkehrt?

 

Hi Achim,

bist du den Code mal im Einzelschrittmodus durchgegangen? Ich vermute mal, dass die Bedingung rgZelle.Offset(0, 2) = Me.ComboBoxKunde nie erfüllt ist und folglich wird die ComboBox nicht gefüllt.

Bis später,
Karin

 

Hallo Karin,

ich trau mich schon fast garnicht mehr hier zu schreiben *rotwerd*

Du hast vollkommen recht. Bei meinen Tests habe ich zielsicher genau die Auswahl genommen, wo die Bedingung nicht erfüllt wird...
Habe gerade auf die Schnelle mal die anderen probiert, scheint alles so zu klappen wie es soll.

Manchmal ist man doch echt wie ein Kotelett ...
von allen Seiten bekloppt!