gefilterte Listbox
08.12.2015 16:26:00
Dirk
Hallo Experten,
folgendes Problem :
ein Tabellenblatt soll nach einem gewissen Zeitraum gefiltert werden und diese
gefilterten Werte dann in eine Listbox übertragen werden. Funktioniert leider
nicht, bin am Verzweifeln. Für Eure Hilfe bedanke ich mich schon mal im Voraus.
Liebe Grüße
Dirk
Private Sub Image1_Click()
'Application.Visible = False
Application.ScreenUpdating = False 'flackern abschalten
Dim AppExcel As Object
Dim arrWerte As Variant
With ThisWorkbook.Sheets("Tabelle1")
.Cells.Select
Selection.AutoFilter
.Range("$A$1:$ZZ$65536").AutoFilter Field:=5, Criteria1:= _
(">=" & UserForm1.TextBox1.Value), Operator:=xlAnd, Criteria2:=("<=" & UserForm1. _
TextBox2.Value)
ListBox1.RowSource = "A1:ZZ65536"
Application.ScreenUpdating = True
Selection.AutoFilter
End With
End Sub