Autofilter Benutzerdefinierter Dialog VBA

[Steffen Koch]

Hallo Leute,

bin auf der Suche nach der Möglichkeit, den Dialog
Autofilter / Benutzerdefiniert
per VBA aufzurufen.

Den Dialogs(Index) dafür konnte ich nicht finden, dafür
in der engl. NG folgendes:
Application.ExecuteExcel4Macro "FILTER?(1,""*A*"")"

Modifiziert ergibt es folgenden Code:

Dim myname As String
myname = "FILTER?(" & ActiveCell.Column & "," & """""" & ")"
Application.ExecuteExcel4Macro myname


Funktioniert zwar, habe aber Bauchschmerzen damit.
Kennt wer was eleganteres für Excel 2002?

Danke und Gruß Steffen

[Herbert Taferner]

Hallo Steffen

versuchs mal so,
z.B. mit 2 Suchkriterien im markierten Bereich

'----------------------
Sub Filtern()
Dim Such_1
Dim Such_2

Such_1 = "*A*"
Such_2 = "*s*"

Selection.AutoFilter _
Field:=1, _
Criteria1:=Such_1, _
Operator:=xlAnd, _
Criteria2:=Such_2
End Sub
'----------------------------

mfg Herbert

[Steffen Koch]

Post by Herbert Taferner
Hallo Steffen

Hallo Herbert,

Post by Herbert Taferner
versuchs mal so,
z.B. mit 2 Suchkriterien im markierten Bereich

und damit bekomme ich den Dialog

"Benutzerdefinierter Autofilter"

angezeigt?

Bei mir klappt es nicht.

Danke für deine Antwort.
Gruß Steffen

[Herbert Taferner]

Hallo Steffen,

Post by Steffen Koch
und damit bekomme ich den Dialog
"Benutzerdefinierter Autofilter"
angezeigt?
Bei mir klappt es nicht.

nein da siehst du gleich das Ergebnis der Filterung

aber wenn du denn genau das Fenster möchtest

z. B. für Spalte A ab Zeile 1 dann so

[a1].Select
Application.Dialogs(xlDialogFilter).Show (1)

mfg Herbert