title image


Smiley Autofilter von Sheet1 nach Sheet2 übertragen (per VBA)
Hi Ihr.



Ich mach es mir gerade mal wieder etwas zu einfach, glaub ich...



Ich habe zwei im Aufbau identische Sheets. Auf beiden ist der AutofilterMode=True, sprich der Autofilter ist an. Nun möchte ich die Kriteren des Sheet1 auf das Sheet2 übertragen, aber das will mit partout nicht gelingen.



Warum funktioniert dieser Code-Schnipsel nicht?



Set VNR1 = ActiveWorkbook.Sheets("VNR1")

Set VNR2 = ActiveWorkbook.Sheets("VNR2")



'Autofilter gleichsetzen

For i = 1 To VNR1.AutoFilter.Filters.Count

Set Flt1 = VNR1.AutoFilter.Filters(i)

Set Flt2 = VNR2.AutoFilter.Filters(i)

If Flt1.On Then

Flt2 = Flt1

End If

Next i





Kann mir jemand helfen?



Gruß

Marco



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: