Habe da ein kleines Problem.
Unzwar:
über eine Userform kann ich die Tabelle in der die Werte stehen filtern.
Das funktioniert ja auch super.
Das Problem ist das übertragen dann in die Listbox in der Userform.
Ich bekomm zwar die Daten in die Listbox. Jedoch nur die erste Spalte (A).
Ich möchte aber das 6 Spalten angezeigt werden (A - F).
Keine Ahnung was da los ist.
Sub FilterAnzeigen()
Dim Bereich As Range, rngCell As Range
UFstart.ListBox1.Clear
Set Bereich = Worksheets("ia").Range("A1:AA1").Resize(Worksheets("ia").AutoFilter.Range.Rows. _
Count - 1, 1)
For Each rngCell In Bereich
If rngCell.EntireRow.Hidden = False Then UFstart.ListBox1.AddItem rngCell.Value
Next
End Sub
Vielleicht kann mir jemand helfen.Lg Patrick