ich hoffe hier Hilfe zu finden...
Ich möchte in einem Listfeld (9 Spalten), aus einem Excelsheet Daten gefiltert übernehmen.
Gibt es die Möglichkeit, der Eigenschaft RowSource einen Filter mitzugeben?
(Bisher übernimmt Excel auch ausgeblendete Daten...)
So sieht bisher mein Code aus:
With Worksheets("Datenblatt").Range("a:a")
leere_Zelle = .Find("").Row
If leere_Zelle > 2 Then: leere_Zelle = leere_Zelle - 1
End With
For i = 2 To leere_Zelle
If Worksheets("Datenblatt").Cells(i, 5).Value = "CO" Then
Worksheets("Datenblatt").Cells(i, 5).EntireRow.Hidden = True
End If
Next
With ListBox1
.ColumnCount = 9
.RowSource = "Datenblatt!$A$2:$I$" & leere_Zelle
.ColumnWidths = "30;70;70;120;30;250;30;120;100"
.ColumnHeads = True
End With
Danke für Eure Hilfe.
Grüsse, Robs