Hi Max,
OK, das ist schon mal ein gutes Zeichen. Dann ist es wie ich bereits sagte: Es kommt darauf an, in welcher Datei du den Code speicherst. Wenn du das Makro nicht in Laufende Auträge sondern in einer anderen Datei hast, dann musst du natürlich vor Range noch das Filterworkbook mitgeben.
Ersetze mal For Each c1 In Range("E2:E" & lngRows) durch For Each c1 In Workbooks("Laufende Aufträge.xlsm").Worksheets("Laufende Aufträge").Range("E2:E" & lngRows)
Und sag nochmal Bescheid obs jetzt klappt.
Gruß Mr. K.
|