Filter setzen
04.07.2017 11:44:45
cbds
habe erst vor kurzem begonnen mit VBA zu arbeiten und von daher versuche ich mir anhand aufgezeichneter Makros einiges abzuleiten.
Habe folgendes Problem:
Ich habe insgesamt 30 Dateien, bei denen ich regelmäßig aktualisierungen vornehme und entsprechend immer die gleichen Filter anpassen muss. Folgendes habe ich mal für eine Datei aufgezeichnet.
Sub Filter()
' Filter Makro
ActiveWorkbook.Worksheets("Dateinnamexxx").AutoFilter.Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Dateinamexxx").AutoFilter.Sort.SortFields.Add Key:=Range _
("$F$2:$F$2357"), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:= _
xlSortNormal
With ActiveWorkbook.Worksheets("Dateinamexxx").AutoFilter.Sort
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
ActiveSheet.Range("$A$2:$AR$2357").AutoFilter Field:=7, Criteria1:= _
"Danke und VG
cbds