|
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:
'Bereich in Text Formatieren
Range("A1:AL310").Select
Selection.NumberFormat = "@"
'Bereich selektieren
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
|