Hallo zusammen,
ich habe in einer xls Datei filter eingebaut die auch alle nach
meine kriterien funktionieren.
Nun meine Frage wie kann ich den Filter gleich so setzen das
3 Personen auf 3 unterschiedliche Filter-Einstellung zugreifen.
Gibt es etwas der den Filter auf bestimmte Anfangswerte festlegt?
Oder muss ich ein Makroschreiben ? Wenn ja, wie am besten ?
Danke schon mal im voraus für die Mühe,
Lestat
Hallo lestat,
Wenn du mit Filtern die Nutzung der Autofilter-Funktion oder Filter–>Spezialfilter in EXCEL meinst, so erfordert eine Änderung der Filtereinstellung immer einen Benutzer-Eingriff oder eine Änderung per Makro.
Das Makro muß beim öffnen der Arbeitsmappe automatisch starten.
Im nachfolgenden Beispiel habe ich den Benutzernamen (Eintrag unter Extras–>Optionen–>Register Allgemein) benutzt, um in der Tabelle ‚TabHoch‘ die Kriterien eines Autofilters beim Öffnen der Mappe anzupassen.
Private Sub Workbook\_Open()
Benutzer = Excel.Application.UserName
' UserName ist der unter Extras--\>Optionen--\>Allgemein eingetragene Benutzername
Sheets("TabHoch").Select 'Tabelle in der sich die zu filternden Daten befinden
Select Case Benutzer
Case "UserName1"
Selection.AutoFilter Field:=1, Criteria1:="blau", Operator:=xlAnd
Case "UserName2"
Selection.AutoFilter Field:=1, Criteria1:="=blau", Operator:=xlAnd
Case "UserName3"
Selection.AutoFilter Field:=1, Criteria1:="rot", Operator:=xlAnd
Case Else
MsgPrompt = "Filter für " & Benutzer & " nicht vorhanden. Bitte Fragen Sie Mr. X"
MsgButton = vbOKOnly
MsgTitel = "Hinweis Auswahlfilter"
Meldung = MsgBox(MsgPrompt, MsgButton, MsgTitel)
Selection.AutoFilter Field:=1 'Zeigt alle Werte an
End Select
End Sub
Gruß
Franz
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]