Office: Dialogfeld für variable Filterwahl

Hallo,
Ich habe drei Makros, die auf den gleichen Datenbestand zugreifen und die Daten ausschließlich durch unterschiedlich gesetzte (fest codierte) Filter auswählen. (je Makro 1 Selektionskriterium) Die Verarbeitung der ausgewählten Daten unterscheidet sich nicht.

Code:

Sheets("MySheet").Select
   Selection.AutoFilter Field:=1, Criteria1:="1"  
   Range("H4:H81,J4:AG81").Select
   Selection.Copy

Ich würde das gern in ein Makro zusammenpacken. Dabei soll dem Benutzer die Auswahl des Filters überlassen sein. Ich brauche also eine Art Dialogfeld, die dem User 3 verschiedene Möglichkeiten zur Auswahl anbieten. Die Auswahl einer Möglichkeit muss dabei die Wahl der anderen Möglichkeiten ausschließen.

Hat jemand eine Idee, wie das am effektivsten zu machen ist? Im Hilfemenü find ich nicht den rechten Ansatz ...

Grüße,
leMatze

 

Hallo leMatze,

das kannst du am effezientesten mit einer UserForm erledigen. Ich habe dir dazu mal ein Beispiel aufbereitet. Drück einfach mal den Button in Tabelle1... der Rest erklärt sich von alleine, denke ich.

 

Hi fridgenep,
kannst Du mir den Code bitte mal hier direkt einstellen. Das (externe) Makro lässt sich von meinem Arbeitsplatz aus nicht starten bzw. wird abgehängt...

Danke, leMatze.

 

Hallo leMatze,

was ist denn ein externes Makro?

in Tabelle1 ist ein Button, der diesen Code bekommt:

Code:

Option Explicit

Private Sub CommandButton1_Click()
UserForm1.Show
End Sub

Dann benötigst du eine UserForm namens "UserForm1" mit einem Button und einer ComboBox. Der Code hinter der UserForm sieht dann so aus:

Code:

Option Explicit

Private Sub CommandButton1_Click()
    If ComboBox1.Value = "" Then
        MsgBox "Bitte einen Parameter waehlen!"
        Exit Sub
    End If
    Worksheets("Tabelle1").Range("A1").AutoFilter _
    Field:=1, Criteria1:=ComboBox1.Value
    MsgBox "leMatze, nun kannst du mit der Auswahl machen" _
    & " was du willst!"
End Sub

Private Sub UserForm_Initialize()
    With ComboBox1
        .AddItem "A"
        .AddItem "B"
        .AddItem "C"
        .AddItem "D"
    End With
End Sub

Aber das alles hilft dir kaum, wenn du den Aufbau meiner Testdatei nicht kennst.

 

Hallo,
die Datei konnte ich runterziehen. Aber Makros und ähnliche Gefährten werden bei uns gelöscht, deaktiviert bzw. einfach abgehängt. Daher auch: Mit "externem" Makro meine ich halt keine "Eigenentwicklungen im hiesigen Netzwerk...

Danke Dir für den Code. Werde es dann mal ausprobieren.

leMatze

 

Hallo leMatze,

Ich hoffe du kommst mit dem Code klar.

Aber das eure IT jedes Makro "abschneidet", das kann ich mir nicht vorstellen. Wie geht das? Kannst du das ein wenig präzisieren?