Valg af autofilterkriterie ud fra dropdownbox i andet ark.

værdi=Hansen (eller hvilken som helst anden)

Selection.AutoFilter Field:=4, Criteria1:=Sheets("Ark2").Range("A1")

Jeg har en række sætninger(se nedenstående), som selecterer alle de enkelte filtre til all, så jeg er sikker på at få alt med.
Selection.Autofilter Field:=1
Når jeg kalder makroen fra Ark2 med værdien i celle A1 får jeg følgende fejl:
Autofilter method of Range class failed
Jeg eksekverer altså en makro i Ark2, der laver en sortering i Ark1.

må man se noget mere kode

Ellers skal du køre makroen, fra det ark den virker på.

Sub CENSYSTIMNET()
'
' CENSYSTIMNET Macro
' Macro recorded 09-08-2005 by conlhn
'

'
    Selection.Autofilter Field:=1
    Selection.Autofilter Field:=2
    Selection.Autofilter Field:=3
    Selection.Autofilter Field:=4
    Selection.Autofilter Field:=5
    Selection.Autofilter Field:=6
    Selection.Autofilter Field:=7
    Selection.Autofilter Field:=8
    Selection.Autofilter Field:=9
    Selection.Autofilter Field:=10
    Selection.Autofilter Field:=11
    Selection.Autofilter Field:=12
    Selection.Autofilter Field:=13
    Selection.Autofilter Field:=14
    Selection.Autofilter Field:=15
    Selection.Autofilter Field:=16
    Selection.Autofilter Field:=17
    Selection.Autofilter Field:=18
    ActiveWindow.ScrollColumn = 2
    ActiveWindow.ScrollColumn = 3
    ActiveWindow.ScrollColumn = 4
    ActiveWindow.ScrollColumn = 5
    ActiveWindow.ScrollColumn = 6
    ActiveWindow.ScrollColumn = 7
    ActiveWindow.ScrollColumn = 8
    ActiveWindow.ScrollColumn = 9
    ActiveWindow.ScrollColumn = 10
    ActiveWindow.ScrollColumn = 11
    ActiveWindow.ScrollColumn = 12
    Selection.Autofilter Field:=19
    Selection.Autofilter Field:=20
    Selection.Autofilter Field:=21
    Selection.Autofilter Field:=22
    ActiveWindow.ScrollColumn = 13
    ActiveWindow.ScrollColumn = 14
    ActiveWindow.ScrollColumn = 15
    ActiveWindow.ScrollColumn = 16
    ActiveWindow.ScrollColumn = 17
    ActiveWindow.ScrollColumn = 18
    ActiveWindow.ScrollColumn = 19
    Selection.Autofilter Field:=23
    Selection.Autofilter Field:=24
    Selection.Autofilter Field:=25
    ActiveWindow.ScrollColumn = 18
    ActiveWindow.ScrollColumn = 17
    ActiveWindow.ScrollColumn = 16
    ActiveWindow.ScrollColumn = 15
    ActiveWindow.ScrollColumn = 14
    ActiveWindow.ScrollColumn = 13
    ActiveWindow.ScrollColumn = 12
    ActiveWindow.ScrollColumn = 11
    ActiveWindow.ScrollColumn = 10
    ActiveWindow.ScrollColumn = 9
    ActiveWindow.ScrollColumn = 8
    ActiveWindow.ScrollColumn = 7
    ActiveWindow.ScrollColumn = 6
    ActiveWindow.ScrollColumn = 5
    ActiveWindow.ScrollColumn = 4
    ActiveWindow.ScrollColumn = 3
    ActiveWindow.ScrollColumn = 2
    ActiveWindow.ScrollColumn = 1
    Selection.Autofilter Field:=4, Criteria1:=Sheets("sheet1").Range("H4")
    Selection.Autofilter Field:=5, Criteria1:=Sheets("sheet1").Range("H10")

Kan jeg ikke køre en makro fra et andet ark?

Jeg forsøger at lave et menuark, så brugerne ikke skal ind i arket med dataene.