Wie übertrage ich gefilterte Zeilen einer Tabelle per vba in eine neue Mappe?

Computer: Software & Programmierung Office Software
#1

Hallo liebe Profis,
ich möchte mit vba gefilterte Zeilen der Mappe A möglichst einfach und schnell in die Mappe B übertragen. Die Anzahl der gefilterten Zeilen ist nicht bekannt, der Vorgang wird mehrmals wiederholt. Bei jedem weiteren Vorgang sollen die zu übertragenden Daten in Mappe B unten angefügt werden.
Leider komme ich damit gerade nicht weiter. Würde mich sehr freuen über jede Hilfe. Danke schon mal
LG Marion

#2

Hallo Marion
Ich gehe davon aus, dass in MappeA die Zeile 1 Ueberschriften enthält. Das Kopieren beginnt deshalb ab Zeile 2. - Bei mir klappt das so:

Sub KopieSelektion()

Sheets("MappeA").Select
Rows("2:" & ActiveSheet.UsedRange.Rows.Count).SpecialCells(xlCellTypeVisible).Copy

Sheets("MappeB").Select
zz = ActiveSheet.UsedRange.Rows.Count + 1
Range("A" & zz).Select
ActiveSheet.Paste

Application.CutCopyMode = False
End Sub

Reinhard würde das sicher eleganter lösen :wink:
Viele Grüsse Niclaus

#3

Hallo Niklaus,

Fast - Danke, es funktioniert, wenn beide Tabellen in einer Mappe sind. Allerdings habe ich 2 Arbeitsmappen. A wird immer wieder beim Start des Makros neu erstellt und mit Daten aus anderen Quellen gefüllt. A wird anschließend gesichert. Das Makro filtert nach dem Sichern von A aus A bestimmte Zeilen und soll diese in eine andere Arbeitsmappe B an die bereits enthaltenen Daten anfügen.

LG Marion