Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Gefilterte Daten in eine ListBox einlesen

Gruppe

ListBox

Problem

Wie kann ich erreichen, dass nach jedem Filtervorgang die gefilterten Daten in eine ListBox eingelesen werden?

Lösung
Geben Sie den Ereigniscode in das Klassenmodul des Arbeitsblattes ein.

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