Office: kopierte Zeilen wieder einfügen

Hallo zusammen,

leider bin ich nach unermüdlichen Suchen im Forum nicht so wirklich fündig geworden. Deswegen meine Frage:

Ich möchte Datensätze per Autofilter nach dem Kriterium "leere Zellen" filtern, diese dann kopieren und in eine neue Excelmappe einfügen.

Per Autofilter filtern und diese Zellen kopieren klappt ja schon. Nur lassen sich diese Zeilen/dieser Bereich nicht wieder in eine neue Mappe einfügen. Da kann mir doch sicherlich jemand helfen, oder?

Code:

Gruß
dakawa

:)

 

Moin, dakawa,

vielleicht siehst Du Dir dazu einmal Autofilter-Ergebnisse kopieren und als Wert wieder einfügen an - mit Deinem Ansatz sollten alle Zellen kopiert werden. Die neue Mappe würde ich per Objekt anlegen und "verlinken" - Set wkbNew = Workbooks.Add.

Aber Vorsicht: nach dem Anlegen ist die neue Mappe die aktive - bitte für das Ausählen dann beachten...

 

Danke, danke, danke. nach dem hab ich gesucht. hätte ich doch schon mal eher gefragt... *tausch

Aber eine Frage hab ich doch noch. Wie kann ich das Kopieren verhindern, wenn für das Autofilter-Kriterium keine Datensätze gefunden wurden. Dabei ist aber zu beachten, dass die Überschrift auch immer noch angezeigt wird und somit der sichtbare Bereich nicht wirklich leer ist.

Gruß
dakawa

 

Moin, dakawa,

vielleicht mit folgendem Ansatz:

Code:

 

Super. *happy Damit hat es prima funktioniert.
Jinx, du bist einfach der Beste. *top

Vielen Dank
dakawa

 

Hallo zusammen,

ich muss mein Thema leider nochmal aufgreifen. Im Zuge einer erneuten Veränderung sollen nun wirklich nur die reinen Datensätze kopiert werden. Die Überschrift nicht mit. Wie müsst dafür die Kopieranweisung heißen?

Bis jetzt hatte ich rngBereich.SpecialCells(xlVisible).Copy was ja auch super funktioniert.

Gruß
dakawa

 

Moin, dakawa,

die Resize-Eigenschaft nutzen, um den Bereich "zuzuschneiden":

Code:

 

Super. Ich danke dir wie verrückt. genau diese Zeile habe ich gesucht. *top

rngTab.Offset(1, 0).Resize(rngTab.Rows.Count - 1, _
rngTab.Columns.Count).SpecialCells(xlVisible).Copy

Die Funktion Resize war mir noch nicht geläufig.

Gruß
dakawa