nach ein bißchen probieren, habe ich es hingekriegt:
Sub AutoFilterEinschalten2()
Sheets("Tabelle1").Activate
Application.Dialogs(xlDialogFilter).Show 1
End Sub
Viele Grüße
Bernd
MVP für Microsoft Excel
Excel-Tipps, VBA in 21 Tagen und VBA-Datenbank unter: http://held-office.de
Ist eine Auszeichnung..
Infos darüber findest Du auf der Homepage von Microsoft unter der Rubrik Services & Support. Klicke dort die Rubrik Support-Newsgroups.
Viele Grüße
Bernd
MVP für Microsoft Excel
Excel-Tipps, VBA in 21 Tagen und VBA-Datenbank unter: http://held-office.de
wär mir auch irgendwie zu doof, darauf direkt zu antworten:
MVP = Most Valuable Professional
also Leute, die sich besonders gut mit einem Microsoft-Produkt auskennen bzw. die sich besonders dafür engagieren, dass die oftmals zum Wahnsinn treibende Software für den Anwender verständlich wird - und zwar ohne Support von Microsoft.
Gruß Boris