Ich bin auf der Such nach einen Makro womit ich eine Excel Tabelle die ich zuvor bearbeitet Habe ( 2 Autofilter ) in eine Userfor einzulesen. Ich benutze zuzrzeit volgendes Makro
Private Sub CommandButton6_Click() 'Einlesen Eli
Sheets("ELI4010").Visible = True 'Sichtbar machen
Worksheets("ELI4010").Select
Dim Bereich As Range, rngCell As Range
UserForm8.ListBox3.Clear
Set Bereich = Worksheets("ELI4010").Cells(2, 1).Resize(Worksheets("ELI4010").AutoFilter.Range. _
_
Rows.Count - 1, 1)
For Each rngCell In Bereich
If rngCell.EntireRow.Hidden = False Then UserForm8.ListBox3.AddItem rngCell.Value
Next
End Sub
Mein problem ist das es mir von insgsamt 9 Spalten nur die 1 Wiedegibt.Ich möchte mit einen weitern Butten die Ausgewählte zeile in der Listbox so wie auf dem Tabellenblat auch Läschen nach dem ich meine Daten Ausgelesen Habe.
Kann mir jemand weiter Helfen ?