Private Sub UserForm_Initialize()
Dim sFilter As String
Application.ScreenUpdating = False
sFilter = InputBox("Filter:", , "Zeile 1*")
If sFilter = "" Then Exit Sub
Columns("A:A").AutoFilter Field:=1, Criteria1:=sFilter
Range("A1").CurrentRegion.SpecialCells(xlCellTypeVisible).Copy
Workbooks.Add
Range("A1").PasteSpecial xlPasteValues
Rows(1).Delete
lstDesignAuswahl.List = Range("A1").CurrentRegion.Value
ActiveWorkbook.Close savechanges:=False
lstDesignAuswahl.ListIndex = 0
Columns("A:A").AutoFilter
Application.ScreenUpdating = True
End Sub