Daten filtern

Sub Makro2() ' Makro2 Makro ' Makro am 15.10.2005 von Jochen02 aufgezeichnet Application.CutCopyMode = False Range("Tabelle2!A1:B11").AdvancedFilter Action:=xlFilterCopy, _ CriteriaRange:=Range("Tabelle1!A1:A2"), _ CopyToRange:=Range("Tabelle1!A10:B10"), Unique:=False End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Andreas,
1.) den Teil deiner Antwort verstehe ich nicht richtig:
"Was noch gut wäre, wenn man die Reihenfolgen der Überschriften selbst bestimmen könnte.
Das klappt nur mit Tabelle 2, bei den anderen wird die Reihenfolge der Org.Tabelle genommen."
Kannst du eine Beispieldatei hochladen?
2.) "Noch eine Frage habe ich. Kann man den Code so beeinflussen das die Werte aus der zweiten und der dritten tabelle gleich in die nächsten freien zeilen geschrieben werden?"
Ja, so:
Sub Makro2()
    Application.ScreenUpdating = False
    Sheets("Tabelle2").Select
    Range("Tabelle2!A1:B11").AdvancedFilter Action:=xlFilterCopy, _
        CriteriaRange:=Range("Tabelle1!A1:A2"), _
        CopyToRange:=Range("Tabelle1!A10:B10"), Unique:=False
    Sheets("Tabelle3").Select
    Range("Tabelle3!A1:B11").AdvancedFilter Action:=xlFilterCopy, _
        CriteriaRange:=Range("Tabelle1!A1:A2"), _
        CopyToRange:=Range("Tabelle1!A65536").End(xlUp).Offset(1, 0), Unique:=False
    Sheets("Tabelle4").Select
    Range("Tabelle4!A1:B11").AdvancedFilter Action:=xlFilterCopy, _
        CriteriaRange:=Range("Tabelle1!A1:A2"), _
        CopyToRange:=Range("Tabelle1!A65536").End(xlUp).Offset(1, 0), Unique:=False
    Application.ScreenUpdating = True
    Sheets("Tabelle1").Select
End Sub

Gruß,
Beate

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

Beliebteste Forumthreads (12 Monate)

10 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread