Hallo zusammen,

ich bin völliger Anfänger und möchte folgendes realisieren.

Ich habe eine Tabelle mit u.a. der Spalte "Regionen". Diese Regionen sollen nicht für jedermann zugänglich sein. Daher die Idee, ein Menü zu basteln mit Buttons, in dem man eine Region auswählen kann, dann da Daten reinpflegen oder löschen kann. Idealerweise als Kopie erstellt und abgespeichert im selben Verzeichnis. Wichtig ist, dass bsp.weise der Mitarbeiter der Region "ASEE" nicht auf die Daten der Region "CE" zugreifen kann und umgekehrt.  Dazu habe ich den Filter so gemacht, dass zuerst alles angezeigt wird außer "ASEE" und die Daten dann gelöscht und dann nur ASEE anzeigen lassen. Problem: Alle anderen Datensätze dann auch weg und es zeigt mir bei den Buttons im Menü überall nur ASEE an. Wo liegt mein Denkfehler? Bisher habe ich folgendes:

Sub filtASEE()

    Dim ws As Worksheet
    Set ws = ThisWorkbook.Sheets("Data")
    
    'select data sheet
    Sheets("Data").Select
    
    'find out last row
    wsLR = ws.Cells(Rows.Count, "A").End(xlUp).Row
    
    'set filter in pre-defined range with dynamic rows
    Set myFilter = ws.Range("A1:M" & wsLR)
    myFilter.AutoFilter Field:=1, Criteria1:="<>ASEE"
    
    Range("A2").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.EntireRow.Delete
    myFilter.AutoFilter Field:=1
    
    
End Sub

Sub saveAs()
    
    Dim strFileName As String
    strFileName = ("Tenderauswertung_ASEE_" & Format(Date, "dd.mm.yyyy") & ".xlsm")
    
    ActiveWorkbook.SaveCopyAs ThisWorkbook.Path & "\" & strFileName
    MsgBox "Das Blatt wurde unter " & ThisWorkbook.Path & "\" & strFileName & " gespeichert!"
    

End Sub