Mit untenstehendem Code werden die richtigen Daten aus der Spalte 4 in Abhängigkeit der Spalte 3 in die Combobox (cboNamen3_Enter) eingelesen.
Wo müßte ich was und wie bitte ändern wenn ich folgendes erreichen möchte:
Einlesen der Spalte 4 und 5 in Abhängigkeit der Spalte 3 in eine zweispaltige cboNamen3 und danach die Übernahme des Wertes aus Spalte 3 in eine Textbox.
In der ComboBox selbst sollen die Werte aus der Spalte 4 und 5 angezeigt werden.
Private Sub cboNamen3_Enter()
Dim aRow, iRow As Long
Dim col As New Collection
cboNamen3.Clear
aRow = IIf(IsEmpty(Workbooks("SVAHBHM.xla").Worksheets("Zuordnungen").Range("A65536")), Workbooks("SVAHBHM.xla").Worksheets("Zuordnungen").Range("A65536").End(xlUp).Row, 65536)
On Error Resume Next
For iRow = 1 To aRow
col.Add Workbooks("SVAHBHM.xla").Worksheets("Zuordnungen").Cells(iRow, 1), Workbooks("SVAHBHM.xla").Worksheets("Zuordnungen").Cells(iRow, 4)
If Err = 0 And _
Workbooks("SVAHBHM.xla").Worksheets("Zuordnungen").Cells(iRow, 3) = cboNamen2.Value Then
cboNamen3.AddItem Workbooks("SVAHBHM.xla").Worksheets("Zuordnungen").Cells(iRow, 4)
Else
Err.Clear
End If
Next iRow
On Error GoTo 0
End Sub
Danke
Josef