Home Office-Hilfe.com - Wir lösen Ihr Problem mit Microsoft Excel, Word, Outlook, PowerPoint, Access gratis Forum Impressum

  Dialogfeld für variable Filterwahl
Neues Thema eröffnenNeue Antwort erstellen
Autor Nachricht
leMatze
Newbie
Newbie


Anmeldedatum: 22.05.2006
Beiträge: 14

BeitragVerfasst am: 13.10.2006, 10:29 Nach oben

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
Benutzer-Profile anzeigenPrivate Nachricht senden
fridgenep
Office-Spezialist
Office-Spezialist


Anmeldedatum: 20.10.2006
Beiträge: 159

BeitragVerfasst am: 21.10.2006, 08:54 Nach oben

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.


VBA_Bsp_leMatze.xls
 Beschreibung:

Download
 Dateiname:  VBA_Bsp_leMatze.xls
 Dateigröße:  36.5 KB
 Heruntergeladen:  101 mal

Benutzer-Profile anzeigenPrivate Nachricht senden
leMatze
Newbie
Newbie


Anmeldedatum: 22.05.2006
Beiträge: 14

BeitragVerfasst am: 25.10.2006, 10:15 Nach oben

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.
Benutzer-Profile anzeigenPrivate Nachricht senden
fridgenep
Office-Spezialist
Office-Spezialist


Anmeldedatum: 20.10.2006
Beiträge: 159

BeitragVerfasst am: 25.10.2006, 10:22 Nach oben

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.
Benutzer-Profile anzeigenPrivate Nachricht senden
leMatze
Newbie
Newbie


Anmeldedatum: 22.05.2006
Beiträge: 14

BeitragVerfasst am: 26.10.2006, 07:36 Nach oben

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
Benutzer-Profile anzeigenPrivate Nachricht senden
fridgenep
Office-Spezialist
Office-Spezialist


Anmeldedatum: 20.10.2006
Beiträge: 159

BeitragVerfasst am: 26.10.2006, 08:13 Nach oben

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?
Benutzer-Profile anzeigenPrivate Nachricht senden
Beiträge der letzten Zeit anzeigen:      
Neues Thema eröffnenNeue Antwort erstellen


Ähnliche Beiträge
Thema Autor Forum Antworten Verfasst am
Keine neuen Beiträge Variable in Seriendruck MIKE bt Microsoft Word Hilfe 0 15.08.2008, 05:36 Letzten Beitrag anzeigen
Keine neuen Beiträge Median für variable Daten timboellsterling Microsoft Excel Hilfe 2 25.07.2008, 09:35 Letzten Beitrag anzeigen
Keine neuen Beiträge variable Daten und dazugehörige Daten... timboellsterling Microsoft Excel Hilfe 2 23.07.2008, 15:48 Letzten Beitrag anzeigen
Keine neuen Beiträge Bereich als Variable in anderer Datei... homax Microsoft Excel Hilfe 5 24.06.2008, 11:59 Letzten Beitrag anzeigen
Keine neuen Beiträge variable Gültigkeits-Liste mit Daten ... sfsardina Microsoft Excel Hilfe 2 21.06.2008, 18:54 Letzten Beitrag anzeigen


 Gehe zu:   



Du kannst keine Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum nicht antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum posten
Du kannst Dateien in diesem Forum herunterladen

Haftungsausschluss/Disclaimer


SMS kostenlos versenden | Battle-Dream | Tuning Forum | Join the YoungGeneration | krankenversicherungsvergleich | Kalorienarme Rezepte!
Versicherungsvergleich | Bürobedarf | Papier | Betten

Ranking-Hits



Powered by phpBB © 2001, 2002 phpBB Group :: FI Theme :: Alle Zeiten sind GMT + 1 Stunde
Deutsche Übersetzung von phpBB.de