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:= _
"
Wie schaffe ich es, dass ich die Dateien nicht alle einzeln anpassen muss.Danke und VG
cbds