ComboBox für Autofilter füllen
Wolfgang
ich versuche,den nachfolgenden Code irgendwie anzupassen, damit er auf der einen Seite die ComboBox1 auf dem UF Auswahl mit Einträgen aus Spalte L -Tabelle "Daten"- füllt und gleichzeitig dann nach dem ausgewählten Text in ComboBox1 filtert. Was mache ich da verkehrt? Bekomme das nicht hin. Es folgt immer ein Fehlermeldung, dass die Eigenschaft List nicht gesetzt werden konnte. Danke schon jetzt für die Rückmeldungen.
Gruß - Wolfgang
Private Sub UserForm_Initialize()
UFAuswahl.ComboBox1.List = getAutoFilterList(1)
End Sub
Function getAutoFilterList(Optional ByVal intSpalte As Integer = 1) As Variant
Dim rngsrc As Range, rngCell As Range, objDic As Object
If Sheets("Daten").AutoFilterMode And Sheets("Daten").FilterMode Then
Set rngsrc = Sheets("Daten").AutoFilter.Range.Columns(intSpalte).SpecialCells( _
xlCellTypeVisible)
If rngsrc.Count > 1 Then
Set objDic = CreateObject("scripting.dictionary")
For Each rngCell In rngsrc
If rngCell.Address rngsrc.Cells(1).Address Then objDic(rngCell.Value) = 0
Next
getAutoFilterList = objDic.Keys
objDic.RemoveAll
Set objDic = Nothing
End If
End If
End Function