Office: je nach Bedingung nur Auswahl aus Bereich in CBO listen

Hallo,

an diesem Problem knabbere ich schon seit mehreren Wochen und bekomme es nicht hin.


gegeben:

1. Blatt > Datenliste
2. Blatt > Stammdaten, Datentypen sind Spaltenweise angeordnet und per Namensmanager definiert

1. UserForm > Eingabe von neuen Daten in 1. Blatt, ComboBoxen in UF werden aus 2. Blatt befüllt.
Teilweise werden die CBOs in Abhängigkeit von einander befüllt.
Bsp:
Wird in CBOVorgang "Wareneingang" gewählt, so wird CBOLieferantEmpfänger nur mit Lieferanten befüllt, Empfänger werden dann garnicht angezeigt.


Und genau dieses Beispiel möchte ich gerne noch verfeinern, damit die DropDowns übersichtlicher werden:
Zusätzlich soll nun noch der Wert der CBOKunde abgefragt werden, damit auch nur noch die Lieferanten des ausgewählten Kunden angezeigt werden.
Und genau das bekomme ich nicht hin.


Den Bezug auf CBOVorgang findet Ihr in Form1_Bewegung > Private Sub ComboBoxKunde_Exit
(Zeile 33)
Dort müsste auch der zusätzliche Bezug auf den Kunden rein.

Meinen Versuch diesen Bezug zu filtern findet Ihr in Modul1 > Public Sub LieferantVonKunde
(Zeile 95)
Dieses Sub müsste natürlich dann auch noch im Private Sub ComboBoxKunde_Exit aufgerufen werden.

Das habe ich bisher noch nicht gemacht weil es eh noch nicht ohne Fehlermeldung läuft.


Hier mein momentaner Versuch:

Code:

Public Sub LieferantVonKunde()
  Dim Rg As Range, RgLieferant As Range, RgLand As Range
  Dim loLetzte As Long            ' Letzte belegte Zelle
  Dim loZeile As Long             ' Zeilenzähler für Schleife
    With Worksheets("Stammdaten")
      'letzte belegte Zelle in Spalte F
      loLetzte = IIf(IsEmpty(.Cells(.Rows.Count, 6)), .Cells(.Rows.Count, 6).End(xlUp).Row, .Rows.Count)
      'Vergleich beginnt ab Zeile 2
      For loZeile = 2 To loLetzte
        'Vergleich ob Bedingung erfüllt
        If .Cells(loZeile, 6).Value = Form1_Bewegung.ComboBoxKunde.Value Then
          If RgLieferant Is Nothing Then
            Set RgLieferant = .Cells(loZeile, 4)
            Else
            Set RgLieferant = Application.Union(RgLieferant, .Cells(loZeile, 4))
          End If
          If RgLand Is Nothing Then
            Set RgLand = .Cells(loZeile, 5)
            Else
            Set RgLand = Application.Union(RgLand, .Cells(loZeile, 5))
          End If
        End If
      Next loZeile
        With Form1_Bewegung.ComboBoxLieferantEmpfänger
          .List = RgLieferant.Value
        End With
    End With
End Sub

P.S.:
RgLand brauche ich, damit für den Lieferanten später auch direkt das Land mit ausgegeben wird, das muss ich dann noch anpassen.


Ich hoffe das Ihr mir helfen könnt.