Meine Herausforderung an der ich schon seit Tage verzweifle ist folgende.
Mit meiner UF "Eingabe" wähle ich in der ersten Combobox einen Wert aus, der in der Tabelle "Kriterien" Zellen in der ausgewählten Spalte die nicht leer sind markiert, diese Auswahl soll mir dann die Werte aus der Spalte C in eine weitere Combobox einlesen.
Hoffe Ihr könnt mir den Weg in die richtige Richtung weisen, vielen Dank im Voraus.
lg Much
Hier mein Code-Murks, anbei auch meine Beispieldatei.
Public Sub Saison()
Dim ws As Worksheet, such As String
Dim LR As Long, i As Long
Dim rngFound As Range
On Error Resume Next
Set ws = Worksheets(tab_Kriterium.Name)
ws.Activate
LR = Cells(2, 3).End(xlDown).Row - 1
With ws
For i = 2 To LR
such = UF_Eingabe.cmb_Kollektion.Value
Set rngFound = .Cells.Find(such, LookIn:=xlValues, LookAt:=xlWhole)
rngFound.End(xlUp).Offset(1, 0).Resize(LR, 1).SpecialCells(2).Select
Selection.Range("C") = Selection.Address
'UF_Eingabe.cmb_Saison.RowSource = Selection.Address
If Not IsEmpty(Sheets("Kriterien").Cells(i, 3)) Then
UF_Eingabe.cmb_Saison.AddItem Cells(i, 3)
End If
Next
End With
On Error GoTo -1
End Sub
https://www.herber.de/bbs/user/157114.xlsm