PDA

Vollständige Version anzeigen : Autofilter und kopieren


Michael99
20.02.2001, 10:26
Hallo, zusammen.

Wie kann ich über VBA in Excel in einer Tabelle mit aktiviertem Autofilter die gefilterten Zeilen kopieren und woanders einfügen? Manuell klappt das...

Danke

Horst Schulte
20.02.2001, 21:38
Hi,

mit der folgenden Funktion kannst Du Dein Problem lösen. Das gute daran ist, dass Du damit auch z.B. bewußt ausgeblendete Zeilen und/oder Spalten beim Kopiervorgang wegbekommst.

Sub FiltereiKopieren()
Range("A1").CurrentRegion.SpecialCells(xlCellTypeVisible).Copy _
Worksheets(2).Range("A1")
End Sub


Grüße
Horst

<p align="center"><a href="http://www.horst-schulte.de"><img border="0" src="http://www.horst-schulte.de/logo_hs.gif" alt="Horst Schulte's Portal für Bürohengste">

<p align="left"><font size="2" face="Century Gothic"><font color="#000000">Moderatorenanmerkung: die Überarbeitung dieses Beitrages ist im Zuge der Arbeiten zu sehen, die durch den Wechsel der Forensoftware zum 01.01.2003 verursacht wurden.

Es wurde in diesem Beitrag der Link korrigiert.</font>