Autofilter - Ergebnisse kopieren
16.11.2015 10:56:26
Jochen
bisher habe ich immer still und heimlich mitgelesen, doch dieses mal komme ich nicht weiter. Google und die Forumsuche haben mir bisher auch nicht weitergeholfen.
Ich hoffe ihr könnt mir weiterhelfen.
Und zwar habe ich mir eine Datenbasis geschaffen, welche ich mehrmals mittels VBA und Autofilter abfrage. Ich habe mich für den Autofilter entschieden, weil ich gemerkt habe, dass Schleifen die Performance zu stark beeinträchtigen bei der Anzahl an Anfragen.
Ich habe mein Problem bisher so gelöst:
With ws_2
'Kalenderwoche filtern
.Range("A2:I" & lngletzte).AutoFilter Field:=1, Criteria1:=UserForm2.ComboBox1.Text
'Leere Zellen ausblenden
.Range("A2:I" & lngletzte).AutoFilter Field:=8, Criteria1:="", Operator:=xlAnd
'Prozesse kopieren
.Range("H3:H" &.Cells(Rows.Count,8).End(xlUp).Row).SpecialCells(xlCellTypeVisible).Copy
ws_7.Range("D3").PasteSpecial Paste:=xlPasteValues 'Ziel
Application.CutCopyMode = False 'Zwischenspeicher löschen
.ShowAllData
End With
Vielen Dank für eure Mithilfe.
Beste Grüße
Jochen