ich möchte nur gefilterte daten in eine Listbox einlesen. Dieses Makro habe ich hier gefunden:
ClassModule: Artikel
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
ich weiß aber nicht, wo ich das einfügen sollte. Hat jemand eine Idee?
Danke für Eure Hilfe
Larissa