Hallo,
dank der wirklich guten Leute hier, habe ich für mein Problem eine Lösung bekommen:
'#### ComboBox mit Mänglen füllen START ####
Dim wbk As Workbook
Dim wks As Worksheet
Dim vRow As Variant
Dim iRow As Integer, iRowT As Integer, iRowL As Integer
Application.ScreenUpdating = False
Set wbk = Workbooks.Open("E:\daten\mängelliste.xls")
Set wks = wbk.Sheets(1)
iRowL = Cells(Rows.Count, 8).End(xlUp).Row
Workbooks.Add
For iRow = 1 To iRowL
vRow = Application.Match(wks.Cells(iRow, 8).Value, Columns(1), 0)
If IsError(vRow) Then
iRowT = iRowT + 1
Cells(iRowT, 1).Value = wks.Cells(iRow, 8).Value
End If
Next iRow
Range("a1").CurrentRegion.Sort _
key1:=Range("a1"), order1:=xlAscending, Header:=xlNo
With cbMängelliste
.List = Range("A1").CurrentRegion.Value
If .ListCount > 0 Then .ListIndex = 0
End With
ActiveWorkbook.Close savechanges:=False
wbk.Close
Set wbk = Nothing
Set wks = Nothing
Application.ScreenUpdating = True
'#### ComboBox mit Mänglen füllen ENDE ####
Damit werden mir alle Eintrage derSpalte 8 alphabetisch sortiert und in der ComboBox angezeigt.
Jetzt möchte ich aber, dass nur die Zeile sortiert und angezeigt werden, bei denen in Spalte 3 der Text "111" steht.
Ich bekomme das nicht hingefummelt....
Hat jemand eine Idee?
Viele Grüße aus Hamburg diesig und viiiiiiiel zu kalt...
Ray