AW: Spezialfilter aus verschiedenen Blättern
19.05.2008 21:01:00
Andreas
Hallo Beate,
Danke für deine Hinweise.
Ich hatte auch schon denganzenTag mein Glück prbiert, ohne Erfolg.
Ich wollte nun nur die Spalte Mieter (B3) und Raumnummer(A3) Filter.
Aber auch das bekomme ich nicht mehr hin. Diese Spalten habe ich neu geordnet( Mieter in B3; Raumnummer in A3) und auch in Kostenanteile sin die Spalten in A und B.
Leider bekomme ich immer den Laufzeitfehler 1004, mit der Meldung: Die Methode "Range" ist für das Objekt_Global fehlgeschlage.
Hast du eine Idee was ich falsch mache?
Sub Makro2()
Application.ScreenUpdating = False
Sheets("Büro1").Select
Range("Büro1!A3:B26").AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Range("Kostenanteil!A1:A2"), _
CopyToRange:=Range("Kostenanteil!A10:B10"), Unique:=False
Sheets("Büro2").Select
Range("Büro2!A3:B26").AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Range("Kostenanteil!A1:A2"), _
CopyToRange:=Range("Kostenanteil!A65536").End(xlUp).Offset(1, 0), Unique:=False
Sheets("Prod.").Select
Range("Prod.!A3:B26").AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Range("Kostenanteil!A1:A2"), _
CopyToRange:=Range("Kostenanteil!A65536").End(xlUp).Offset(1, 0), Unique:=False
Application.ScreenUpdating = True
Sheets("Tabelle1").Select
End Sub
gruß Andreas