Office: Bereich bis in letzte Zeile markieren

Hallo

ich habe eine Liste in der ich den spezialfilter verwende.
Ich möchte jetzt aber nicht immer den Berich B1:J90 verwenden sondern den berich B1 bis letzte Zeile von J.

Was muss ich jetzt bei dieser Formel ändern.?

Range("E1").Select
Sheets("a").Range("B1:J90").AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Range("A1:B4"), CopyToRange:=Range("E1"), Unique:=False

danke für eure Hilfe
Stefan

 

Hallo!

Range("E1").Select
Sheets("a").Range("B1:J65536").AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Range("A1:B4"), CopyToRange:=Range("E1"), Unique:=False

Gruß

 

Hallo und Danke,

Aber ich meinte die Letzte Zeile in der etwas eingetragen ist.
Es kommt danach eine Leerzeile und dann ein anderer Datenbereich. diesen will ich jedoch nicht mehr einbinden

fg STefan

 

Hallo!

Sheets("a").Range("B1:" & Sheets("a").Range("J1").End(xlDown).Address)...

 

hallo

also das funktioniert soweit - danke!

allerdings möchte ich jetzt nocheinmal nach einm weiteren datenbereich suchen und diesen dann in die anschließend an das erste Filterergebniss kopieren. ich möchte also eine Zeile freilassen und dann
CopyToRange:=Range("E1")

statt e1 soll dann die freie zeile drinnen stehen!

danke für eure hilfe
fg stefan

 

Hallo!

Sheets("xyz").Range("C1").End(xlDown)

durchsucht die Spalte C von C1 aus abwärts und liefert als Ergebnis den Range, der direkt über der ersten leeren Zelle liegt.

Sheets("xyz"):Range("C65536").End(xlUp)

durchsucht die Spalte C von unten und liefert als Ergebnis die letzte beschriebene Zelle der Spalte.

Mit
Sheets(...).Range(...).End(...).Offset(2, 0)
kannst du die Zelle ansteuern, die zwei Zeilen unter der gefundenen liegt.

 

i glaub i check des nit!

das ist der erste Spezialfilter - der funktioniert!
Sheets("a").Range("B1:" & Sheets("a").Range("J1").End(xlDown).Address).AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Range("A1:B4"), CopyToRange:=Range("E1"), Unique:=False

das wäre dann der nächste schritt. Aber irgenwas mach ich beim einfügen von deienm Code falsch!? weiß aber leider nicht was!

Sheets("a").Range("B1:" & Sheets("a").Range("J1").End(xlDown).Address).AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Range("A11:B12"), CopyToRange:=Range(Sheets("Planungsliste BLS").Range("e1").End(xlDown)), Unique:=False

BITTE - nochmals um Hilfe. Thx

 

Hallo!

Wenn ich dich richtig verstanden habe, dann müsste der fette Teil so lauten:

CopyToRange:=Range("E1").End(xlDown).Offset(2, 0)

Das Blatt brauchst du hier nicht anzugeben, da der Filter ja eh aus dem Zielblatt aufgerufen werden muss.

 

Hallo Schatzi

1000 Dank! - jetzt gehts
:lol:

lg Stefan