Cell select na filter?

[Demeter]

Als ik de volgende macro run dan krijg ik de fout dat de selectie groter is dan het te plakken gebied.
Weet dat dit aan de regel: Cells.Select ligt, maar krijg dit niet goed.
Iemand met een oplossing?

Sub Oefening1()

Application.ScreenUpdating = False
Sheets(1).Select
Range("A2:A100").Select
Selection.AutoFilter
Selection.AutoFilter Field:=1, Criteria1:="4"
Cells.Select
Selection.Copy
Sheets(1).Select
Range("B1").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Sheets(2).Select
Selection.AutoFilter
Range("A1").Select
Application.ScreenUpdating = True
MsgBox "Gegevens zijn overgezet."

End Sub


Bijvoorbaat dank,
Ferenc

 

[LucHeyndrickx]

Jij wil dus een tabel filteren, en de gefilterde gegevens over je eigen tabel plakken?
Kijk ook even naar Uitgebreid filter. Daar zit een optie in om gefilterde gegevens naar elders te kopiëren.

Luc

 

[Demeter]

Pffff

Wat ik hiermee wil bereiken is dat ik data vanuit blad1 wil filteren en deze gefilterde data oer wil plaatsen naar blad2. Met uitgebreid filter lukt het niet, hiermee kan ik alleen in het zelfde blad plakken.

Mijn code, is volgens mij, juist. Alleen moet ik weten hoe ik de gefilterde gegevens kan selecteren. Deze Cell.Select code heb ik uit een attachment hierop Helpmij, file naam scheiden (kan hem zo snel niet vinden).

Dank,
Ferenc

 

[LucHeyndrickx]

Je kan wel naar een ander blad.
Gewoon de filter starten, terwijl het andere blad aktief is.

Luc

 

[Demeter]

Yep

Dank je wel Luc.

Werkt goed, was nu niet echt inovatief bezig, maar aldoende leert men.

Groet,
Ferenc