Thema Datum  Von Nutzer Rating
Antwort
Rot Kopie erstellen und Filtern
13.09.2016 13:03:38 Martin
NotSolved

Ansicht des Beitrags:
Von:
Martin		 Datum:
13.09.2016 13:03:38		 Views:
1226		 Rating:
     
Antwort:
  Ja
Thema:
Kopie erstellen und Filtern

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:

 

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
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

 

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:
WYSIWYG-Editor, ctl00_Content_editor1



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Kopie erstellen und Filtern
13.09.2016 13:03:38 Martin
NotSolved