Bereich bis in letzte Zeile markieren :: Office-Hilfe.com - Wir lösen Ihre Probleme mit Microsoft Office

Einloggen, um private Nachrichten zu lesen

Downloads

[Excel 2003] Bereich bis in letzte Zeile markieren

Office-Hilfe.com - Wir lösen Ihre Probleme mit Microsoft Office Foren-Übersicht » Microsoft Excel Hilfe

Autor

Nachricht

StefanT
Newbie
Newbie

Anmeldedatum: 18.08.2007
Beiträge: 27

Verfasst am: 25.04.2008, 19:02

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

gook
Schlauberger

Anmeldedatum: 25.11.2007
Beiträge: 356
Wohnort: Fridingen an der Donau

Verfasst am: 25.04.2008, 19:57

Hallo!

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

Gruß

StefanT
Newbie
Newbie

Anmeldedatum: 18.08.2007
Beiträge: 27

Verfasst am: 28.04.2008, 08:51

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

schatzi
Moderator

Anmeldedatum: 09.12.2006
Beiträge: 4850

Verfasst am: 28.04.2008, 12:00

Hallo!

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

_________________

Viele Grüße vom Schatzi
------------------------
Dies ist meine Signatur und sie trägt eigentlich nichts zur Lösung deines Problems bei. Sollte sie es dennoch tun, dann bist du definitiv im falschen Forum...

Ein Feedback zum ursprünglichen Problem wäre trotzdem nett!
Windows XP, Office2000, Office2007

StefanT
Newbie
Newbie

Anmeldedatum: 18.08.2007
Beiträge: 27

Verfasst am: 07.05.2008, 16:24

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

schatzi
Moderator

Anmeldedatum: 09.12.2006
Beiträge: 4850

Verfasst am: 07.05.2008, 16:41

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.

Ein Feedback zum ursprünglichen Problem wäre trotzdem nett!
Windows XP, Office2000, Office2007

StefanT
Newbie
Newbie

Anmeldedatum: 18.08.2007
Beiträge: 27

Verfasst am: 08.05.2008, 09:17

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

schatzi
Moderator

Anmeldedatum: 09.12.2006
Beiträge: 4850

Verfasst am: 08.05.2008, 10:12

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.

Ein Feedback zum ursprünglichen Problem wäre trotzdem nett!
Windows XP, Office2000, Office2007

StefanT
Newbie
Newbie

Anmeldedatum: 18.08.2007
Beiträge: 27

Verfasst am: 08.05.2008, 15:36

Hallo Schatzi

1000 Dank! - jetzt gehts
Laughing

lg Stefan

Office-Hilfe.com - Wir lösen Ihre Probleme mit Microsoft Office Foren-Übersicht » Microsoft Excel Hilfe

Thema		Autor	Forum	Antworten	Verfasst am
Ähnliche Beiträge
	VBA - mit Sverweis Zeile markieren un...	Simon	Microsoft Excel Hilfe	3	01.07.2008, 21:50
	Zellen markieren mit Pfeiltasten	acharai81	Microsoft Excel Hilfe	2	25.06.2008, 10:02
	Bereich als Variable in anderer Datei...	homax	Microsoft Excel Hilfe	5	24.06.2008, 12:59
	variable Gültigkeits-Liste mit Daten ...	sfsardina	Microsoft Excel Hilfe	2	21.06.2008, 19:54
	Markieren mehrerer Zeilen über ein Makro	Randy7	Microsoft Excel Hilfe	22	21.06.2008, 08:37

Gehe zu:

Du kannst keine Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum nicht antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum posten
Du kannst Dateien in diesem Forum herunterladen

Powered by phpBB © 2001, 2002 phpBB Group :: FI Theme :: Alle Zeiten sind GMT + 1 Stunde
Deutsche Übersetzung von phpBB.de