Datenübertrag bei Autofilter

16/04/2008 - 08:41 von Richard | Report spam
Hallo liebe NG!


In einer Tabelle sind mehrere Zeilen aufgrund eines Autofilters
ausgeblendet.
Wie kann ich die ersten fünf Zeilen die angezeigt werden auf ein
anderes Datenblatt übertragen ohne mittels Kopieren und Einfügen zu
arbeiten?

Folgender Befehl übertràgt die Werte aller Zeilen (auch der nicht
angezeigten):

Worksheets("listen").Range("B132:P136").Value = Range(ActiveCell(),
ActiveCell.Offset(4, 13)).Value


Wer kennt eine Lösung?

lg. Richard - Excel 2003
 

Lesen sie die antworten

#1 Robert Gelbmann
16/04/2008 - 11:52 | Warnen spam
Hallo Richard!

"Richard" schrieb ...
In einer Tabelle sind mehrere Zeilen aufgrund eines Autofilters
ausgeblendet.
Wie kann ich die ersten fünf Zeilen die angezeigt werden auf ein
anderes Datenblatt übertragen ohne mittels Kopieren und Einfügen zu
arbeiten?
[...] Excel 2003



Warum kein Kopieren & Einfügen??
Das wàre in diesem Fall performancetechnisch sinnvoller!

Aber wenn es unbedingt sein muss, dann wird es etwas aufwàndiger:

'snip
i = 0
For Each rngBereich In
Selection.SpecialCells(xlCellTypeVisible).Areas
For Each rngZeile In rngBereich.Rows
Worksheets("listen").Range("B132:P132").Offset(i).Value =
rngZeile.Value
i = i + 1
Next
Next

'snip


In der Hoffnung geholfen zu haben, verbleibe ich mit einem leisen


Servus aus Wien,
-Robert Gelbmann-

I solemnly swear that I'm up to no good.

Ähnliche fragen