Mit unten stehendem Code werden alle Daten aus der Spalte CX in die ComboBox12 eingelesen.
Wie kann ich bitte erreichen, dass z.B. nur die DAten von CX2 bis CX71 oder nur die Daten von CX72 bis CX80 eingelesen werden?
Private Sub ComboBox12_Enter()
Dim wks As Worksheet
Dim aRow, iRow As Long
Set wks = Workbooks("Masterprog.xla").Worksheets("Tabelle1")
Dim col As New Collection
aRow = IIf(IsEmpty(wks.Range("CX65536")), wks.Range("CX65536").End(xlUp).Row, 65536)
On Error Resume Next
For iRow = 2 To aRow
With wks
col.Add wks.Cells(iRow, 1), wks.Cells(iRow, 107)
If Err = 0 Then
Eingabefrm.ComboBox12.AddItem .Cells(iRow, 107)
Else
Err.Clear
End If
End With
Next iRow
On Error GoTo 0
End Sub
Danke
Josef