|
Hi,
das war dann jetzt mein Fehler. Es lag Tatsächlich daran das ich dachte "Format$(Date, "yyyymmdd")" bezieht sich nur auf irgend ein Datum. Kenne den Code normalerweise als "Format(Now, "YYYY-MM-DD")" wen es sich auf das heutige Datum bezieht.
Es ist auch völlig ausreichend, das es nach aktiven Arbeitsmappen sucht. Das ist genau wie ich es gerne hätte.
Jetzt erkennt das Makro auch die Arbeitsmappe, setzt diese aber nicht auf Aktive. Sprich wen dann der Code kommt:
1 2 3 4 5 6 7 8 9 10 11 12 | Range("A1:AL310").Select
Selection.NumberFormat = "@"
Range("A1").Select
Selection.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
|
Kommt der Laufzeitfehler `1004': Die AutoFilter-Methode des Range-Objektses konnte nicht ausgeführt werden.
Sprich da der wechsel nicht auf die gesuchte Arbeitsmappe erfolgt, kann die Funktion nich tausgeführt werden.
Hofffentlich hab ich es verständlich genug wiedergegeben.
LG
|