|
Hallo,
das meinte ich vorher, anstatt zu aktivieren setzt du das Workbook Objekt objWorkbook und arbeitest damit weiter, gleiches bei den anderen Objekten, beachte die Punkte vor den Objekten, es bezieht sich alles auf objWorkbook in der With-Anweis. >>> auf aktivieren und sel. kann man (fast) immer verzichten das ist immer performanter, s.a: https://www.online-excel.de/excel/singsel_vba.php?f=78
Option Explicit
Public Sub bsp()
Dim objWorkbook As Workbook
Dim strDate As String
strDate = Format$(Date, "yyyymmdd")
For Each objWorkbook In Workbooks
With objWorkbook
If .Name Like strDate & "*" Then
'//// ggf das Sheet expl. angeben.....
.ActiveSheet.Range("A1:AL310").NumberFormat = "@"
.ActiveSheet.Range("A1").AutoFilter
.ActiveSheet.Range("$A$1:$AL$1280").AutoFilter Field:=16, Criteria1:=Array( _
"75137-21", "75138-11", "75139-11"), Operator:=xlFilterValues
.ActiveSheet.Range("$A$1:$AL$1280").AutoFilter Field:=14, Criteria1:=Array( _
"KBE", "P05MI", "P5MI", "TOAC"), Operator:=xlFilterValues
'/// usw...../////
End If
End With
Next
End Sub
Gruß,
|