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
|