Gruppe
Dialog
Problem
Wie kann ich erreichen, dass nach jedem Filtervorgang die gefilterten Daten in eine ListBox eingelesen werden?
ClassModule: Tabelle2
Private Sub Worksheet_Calculate()
Dim iCounter As Integer
lstFilter.Clear
For iCounter = 2 To WorksheetFunction.CountA(Columns(1))
If Rows(iCounter).Hidden = False Then
lstFilter.AddItem Cells(iCounter, 1).Value
End If
Next iCounter
End Sub