am 17.1.2007 hat Rudi eine Super Lösung für das Anzeigen von gefilterten Daten in einer CombBox geschrieben.
Der die Daten einer Tabelle mit Auto Filter in eine ComboBox anzeigt.
Nun meine Frage: Es wird nur das Spalte A angezeigt wie muß ich den Code verendern wenn auch noch B und C Angezeigt werden soll?
Das war der Cod mit dem man Spalte A anzeiben läst.
Private Sub UserForm_Initialize()
Dim i As Long, n As Long
Dim wks As Worksheet, vntList()
Set wks = ThisWorkbook.Sheets("Tabelle1")
With wks
For i = 2 To .Cells(Rows.Count, 1).End(xlUp).Row
If WorksheetFunction.CountIf(.Range(.Cells(2, 1), .Cells(i, 1)), .Cells(i, 1)) = 1 And _
.Rows(i).Hidden = False Then _
n = n + 1
ReDim Preserve vntList(1 To 1, 1 To n)
vntList(1, n) = .Cells(i, 1)
End If
Next i
End With
Debug.Print UBound(vntList, 2)
ComboBox1.List = WorksheetFunction.Transpose(vntList)
End Sub
Gruß Ingo