ComboBox und Autofilter
12.04.2016 11:58:59
st.
ich filtere eine Spalte (A) nach einem Teilstring und möchte das Ergebnis und zwar nur das sichtbare in eine Combobox eintragen. Anbei der Code. An der Stelle, an der ich die Daten in die Combobox schreibe kommt der Fehler, dass die Typen unvereinbar sind.
rRng = "A1:" & Sheets(1).Cells(Rows.Count, 1).End(xlUp).Address
k = Autofilter("A1:" & Sheets(1).Cells(Rows.Count, 1).End(xlUp).Address, 1, String1 & "*")
CBM1L1.RowSource = "A1:" & Sheets(1).Cells(Rows.Count, 1).End(xlUp).SpecialCells(xlCellTypeVisible)
Range(rRng).Autofilter
Public Function Autofilter(rRng, clm, strcrit)
Range(rRng).Autofilter Field:=clm, Criteria1:=strcrit
End Function
Danke schonmal für eure Hilfe.