VBA-Forum - Das Forum zu Microsoft VBA

VBA Excel VBA Word VBA Access VBA VBScript VB C# Objective-C C++ SQL JAVA VBA (English) Jobs Übersicht

Thema	Datum	Von Nutzer	Rating	Antwort
Spalte auslesen und filter setzen	13.02.2019 09:08:30	Saki
Spalte auslesen und filter setzen	13.02.2019 09:20:35	Gast46152
Spalte auslesen und filter setzen	13.02.2019 09:29:26	Saki

Ansicht des Beitrags:

Von:
Gast46152

Datum:
13.02.2019 09:20:35

Views:
668

Rating:

Antwort:

Thema:
Spalte auslesen und filter setzen

Mein Quellcode:

Private Sub CommandButton_Anmelden_Click()
Dim I As Integer
Dim User_Long As String
Dim User_Short As String
Dim SpaltenEinAus As String
Dim SpaltenSchutz As String
Dim ZellIn As String

'Über das Konfigurationsblatt (Config) werden je nach Benutzer die Berechtigungen erteilt

Sheets("Config").Select 'Auswahl Tabellenblatt Konfiguration

For I = 5 To 50

    Range("I" & I).Select
    ZellIn = ActiveCell.FormulaR1C1
    Range("B" & I).Select
    User_Long = ActiveCell.FormulaR1C1
    Range("C" & I).Select
    User_Short = ActiveCell.FormulaR1C1
    Range("D" & I).Select
    SpaltenEinAus = ActiveCell.FormulaR1C1
    Range("E" & I).Select
    SpaltenSchutz = ActiveCell.FormulaR1C1

    If User_Long <> "" Then


    'Über die Listbox aktiven Benutzername (User_Long) und Kürzel (User_Short) auswählen

        If ListBox1.Value = User_Long + " - " + User_Short Then
            Active_User_Long = User_Long
            Active_User_Short = User_Short
            Range("D" & I).Select
            SpaltenEinAus = ActiveCell.FormulaR1C1
            SpaltenSchutz = ActiveCell.FormulaR1C1




     'Tabellenblätter definiert und Spalten Ein/Ausblenden. Über Konfigurationsblatt (Config)
     'wird eingestellt welcher Benutzer mit J oder N Spalten sehen darf oder nicht. Für jedes
     'Tabellenblatt einzeln definiert

            Sheets("ANSTAT_2019").Select                'Auswahl Tabellenblatt "ANSTAT_2019"
            If SpaltenEinAus = "J" Then
                ActiveSheet.Rows(1).Hidden = True
                ActiveSheet.Columns("B").Hidden = True
                ActiveSheet.Columns("C").Hidden = True
                ActiveSheet.Columns("G").Hidden = True
            Else
                ActiveSheet.Rows(1).Hidden = False
                ActiveSheet.Columns("B").Hidden = False
                ActiveSheet.Columns("C").Hidden = False
                ActiveSheet.Columns("G").Hidden = False
            End If

    'Spalten A - J werden geschützt

            If SpaltenSchutz = "J" Then
                Columns("A:I").Select
                Selection.Locked = True
            Else
                Columns("A:I").Select
                Selection.Locked = False
            End If



            Sheets("ANSTAT_2018").Select                'Auswahl Tabellenblatt "ANSTAT_2018"
            If SpaltenEinAus = "J" Then
                ActiveSheet.Rows(1).Hidden = True
                ActiveSheet.Columns("B").Hidden = True
                ActiveSheet.Columns("C").Hidden = True
                ActiveSheet.Columns("G").Hidden = True
            Else
                ActiveSheet.Rows(1).Hidden = False
                ActiveSheet.Columns("B").Hidden = False
                ActiveSheet.Columns("C").Hidden = False
                ActiveSheet.Columns("G").Hidden = False
            End If

            'Spalten A - J werden geschützt

            If SpaltenSchutz = "J" Then
                Columns("A:I").Select
                Selection.Locked = True
            Else
                Columns("A:I").Select
                Selection.Locked = False
            End If

            Sheets("ANSTAT_2017").Select                'Auswahl Tabellenblatt "ANSTAT_2017"
            If SpaltenEinAus = "J" Then
                ActiveSheet.Rows(1).Hidden = True
                ActiveSheet.Columns("B").Hidden = True
                ActiveSheet.Columns("C").Hidden = True
                ActiveSheet.Columns("G").Hidden = True
            Else
                ActiveSheet.Rows(1).Hidden = False
                ActiveSheet.Columns("B").Hidden = False
                ActiveSheet.Columns("C").Hidden = False
                ActiveSheet.Columns("G").Hidden = False
            End If

            'Spalten A - J werden geschützt

            If SpaltenSchutz = "J" Then
                Columns("A:I").Select
                Selection.Locked = True
            Else
                Columns("A:I").Select
                Selection.Locked = False
            End If

            Sheets("ANSTAT_2016").Select                'Auswahl Tabellenblatt "ANSTAT_2016"
            If SpaltenEinAus = "J" Then
                ActiveSheet.Rows(1).Hidden = True
                ActiveSheet.Columns("B").Hidden = True
                ActiveSheet.Columns("C").Hidden = True
                ActiveSheet.Columns("G").Hidden = True
            Else
                ActiveSheet.Rows(1).Hidden = False
                ActiveSheet.Columns("B").Hidden = False
                ActiveSheet.Columns("C").Hidden = False
                ActiveSheet.Columns("G").Hidden = False
            End If

            'Spalten A - J werden geschützt

            If SpaltenSchutz = "J" Then
                Columns("A:I").Select
                Selection.Locked = True
            Else
                Columns("A:I").Select
                Selection.Locked = False
            End If

            Sheets("ANSTAT_2015").Select                'Auswahl Tabellenblatt "ANSTAT_2015"
            If SpaltenEinAus = "J" Then
                ActiveSheet.Rows(1).Hidden = True
                ActiveSheet.Columns("B").Hidden = True
                ActiveSheet.Columns("C").Hidden = True
                ActiveSheet.Columns("G").Hidden = True
            Else
                ActiveSheet.Rows(1).Hidden = False
                ActiveSheet.Columns("B").Hidden = False
                ActiveSheet.Columns("C").Hidden = False
                ActiveSheet.Columns("G").Hidden = False
            End If

            'Spalten A - J werden geschützt

            If SpaltenSchutz = "J" Then
                Columns("A:I").Select
                Selection.Locked = True
            Else
                Columns("A:I").Select
                Selection.Locked = False
            End If

            Sheets("ANSTAT_2014").Select                'Auswahl Tabellenblatt "ANSTAT_2014"
            If SpaltenEinAus = "J" Then
                ActiveSheet.Rows(1).Hidden = True
                ActiveSheet.Columns("B").Hidden = True
                ActiveSheet.Columns("C").Hidden = True
                ActiveSheet.Columns("G").Hidden = True
            Else
                ActiveSheet.Rows(1).Hidden = False
                ActiveSheet.Columns("B").Hidden = False
                ActiveSheet.Columns("C").Hidden = False
                ActiveSheet.Columns("G").Hidden = False
            End If

            'Spalten A - J werden geschützt

            If SpaltenSchutz = "J" Then
                Columns("A:I").Select
                Selection.Locked = True
            Else
                Columns("A:I").Select
                Selection.Locked = False
            End If

            Sheets("ANSTAT_2013").Select                'Auswahl Tabellenblatt "ANSTAT_2013"
            If SpaltenEinAus = "J" Then
                ActiveSheet.Rows(1).Hidden = True
                ActiveSheet.Columns("B").Hidden = True
                ActiveSheet.Columns("C").Hidden = True
                ActiveSheet.Columns("G").Hidden = True
            Else
                ActiveSheet.Rows(1).Hidden = False
                ActiveSheet.Columns("B").Hidden = False
                ActiveSheet.Columns("C").Hidden = False
                ActiveSheet.Columns("G").Hidden = False
            End If

            'Spalten A - J werden geschützt

            If SpaltenSchutz = "J" Then
                Columns("A:I").Select
                Selection.Locked = True
            Else
                Columns("A:I").Select
                Selection.Locked = False
            End If

            Sheets("ANSTAT_2012").Select                'Auswahl Tabellenblatt "ANSTAT_2012"
            If SpaltenEinAus = "J" Then
                ActiveSheet.Rows(1).Hidden = True
                ActiveSheet.Columns("B").Hidden = True
                ActiveSheet.Columns("C").Hidden = True
                ActiveSheet.Columns("G").Hidden = True
            Else
                ActiveSheet.Rows(1).Hidden = False
                ActiveSheet.Columns("B").Hidden = False
                ActiveSheet.Columns("C").Hidden = False
                ActiveSheet.Columns("G").Hidden = False
            End If

            'Spalten A - J werden geschützt

            If SpaltenSchutz = "J" Then
                Columns("A:I").Select
                Selection.Locked = True
            Else
                Columns("A:I").Select
                Selection.Locked = False
            End If

            Sheets("ANSTAT_2011").Select                'Auswahl Tabellenblatt "ANSTAT_2011"
            If SpaltenEinAus = "J" Then
                ActiveSheet.Rows(1).Hidden = True
                ActiveSheet.Columns("B").Hidden = True
                ActiveSheet.Columns("C").Hidden = True
                ActiveSheet.Columns("G").Hidden = True
            Else
                ActiveSheet.Rows(1).Hidden = False
                ActiveSheet.Columns("B").Hidden = False
                ActiveSheet.Columns("C").Hidden = False
                ActiveSheet.Columns("G").Hidden = False
            End If

            'Spalten A - J werden geschützt

            If SpaltenSchutz = "J" Then
                Columns("A:I").Select
                Selection.Locked = True
            Else
                Columns("A:I").Select
                Selection.Locked = False
            End If

            Sheets("ANSTAT_2010").Select                'Auswahl Tabellenblatt "ANSTAT_2010"
            If SpaltenEinAus = "J" Then
                ActiveSheet.Rows(1).Hidden = True
                ActiveSheet.Columns("B").Hidden = True
                ActiveSheet.Columns("C").Hidden = True
                ActiveSheet.Columns("G").Hidden = True
            Else
                ActiveSheet.Rows(1).Hidden = False
                ActiveSheet.Columns("B").Hidden = False
                ActiveSheet.Columns("C").Hidden = False
                ActiveSheet.Columns("G").Hidden = False
            End If

            'Spalten A - J werden geschützt

            If SpaltenSchutz = "J" Then
                Columns("A:I").Select
                Selection.Locked = True
            Else
                Columns("A:I").Select
                Selection.Locked = False
            End If



        End If

    Else
        Exit For
    End If

Next I

    If InStr(1, ZellIn, Active_User_Short) Then
         ActiveSheet.Range("$I$4:$I$5000").AutoFilter Field:=1, Criteria1:=ZellIn
    Else
    Reset
    End If


'Definition Einblenden welche Tabellenblätter für welche Benutzer zu sehen sind

'Marina Schnörer

If ListBox1.Value = "Marina Schnörer - MAS" Then
MsgBox "Angemeldet als Marina Schnörer!!!"
Application.Visible = True

'Tabellenblätter Ein/Ausblenden

Sheets("ENTWICKLUNG").Visible = True
Sheets("Best-Eingang").Visible = True
Sheets("ANSTAT_2019").Visible = True
Sheets("ANSTAT_2018").Visible = True
Sheets("ANSTAT_2017").Visible = True
Sheets("ANSTAT_2016").Visible = True
Sheets("ANSTAT_2015").Visible = True
Sheets("ANSTAT_2014").Visible = True
Sheets("ANSTAT_2013").Visible = True
Sheets("ANSTAT_2012").Visible = True
Sheets("ANSTAT_2011").Visible = True
Sheets("ANSTAT_2010").Visible = True
Sheets("ANSTAT_2009").Visible = True
Sheets("ANSTAT_2008").Visible = True
Sheets("ANSTAT_2007").Visible = True
Sheets("ANSTAT_2006").Visible = True
Sheets("ANSTAT_2005").Visible = True
Sheets("Anfrage").Visible = True
Sheets("Ausstehende Bestellungen").Visible = True
Sheets("Tabelle1").Visible = True
Unload Me

End If

'Evangelos Pipsos

If ListBox1.Value = "Evangelos Pipsos - EPI" Then
MsgBox "Angemeldet als Evangelos Pipsos!!!"
Application.Visible = True

'Tabellenblätter Ein/Ausblenden

Sheets("ENTWICKLUNG").Visible = True
Sheets("Best-Eingang").Visible = True
Sheets("ANSTAT_2019").Visible = True
Sheets("ANSTAT_2018").Visible = True
Sheets("ANSTAT_2017").Visible = True
Sheets("ANSTAT_2016").Visible = True
Sheets("ANSTAT_2015").Visible = True
Sheets("ANSTAT_2014").Visible = True
Sheets("ANSTAT_2013").Visible = True
Sheets("ANSTAT_2012").Visible = True
Sheets("ANSTAT_2011").Visible = True
Sheets("ANSTAT_2010").Visible = True
Sheets("ANSTAT_2009").Visible = True
Sheets("ANSTAT_2008").Visible = True
Sheets("ANSTAT_2007").Visible = True
Sheets("ANSTAT_2006").Visible = True
Sheets("ANSTAT_2005").Visible = True
Sheets("Anfrage").Visible = True
Sheets("Ausstehende Bestellungen").Visible = True
Sheets("Tabelle1").Visible = True
Unload Me

End If

'Alfred Weinheimer

If ListBox1.Value = "Alfred Weinheimer - ALW" Then
MsgBox "Angemeldet als Alfred Weinheimer!!!"
Application.Visible = True

'Tabellenblätter Ein/Ausblenden

Sheets("ENTWICKLUNG").Visible = True
Sheets("Best-Eingang").Visible = True
Sheets("ANSTAT_2019").Visible = True
Sheets("ANSTAT_2018").Visible = True
Sheets("ANSTAT_2017").Visible = True
Sheets("ANSTAT_2016").Visible = True
Sheets("ANSTAT_2015").Visible = True
Sheets("ANSTAT_2014").Visible = True
Sheets("ANSTAT_2013").Visible = True
Sheets("ANSTAT_2012").Visible = True
Sheets("ANSTAT_2011").Visible = True
Sheets("ANSTAT_2010").Visible = True
Sheets("ANSTAT_2009").Visible = True
Sheets("ANSTAT_2008").Visible = True
Sheets("ANSTAT_2007").Visible = True
Sheets("ANSTAT_2006").Visible = True
Sheets("ANSTAT_2005").Visible = True
Sheets("Anfrage").Visible = True
Sheets("Ausstehende Bestellungen").Visible = True
Sheets("Tabelle1").Visible = True
Unload Me

End If

'Peter Wolf

If ListBox1.Value = "Peter Wolf - PWO" Then
MsgBox "Angemeldet als Peter Wolf!!!"
Application.Visible = True

'Tabellenblätter Ein/Ausblenden

Sheets("ENTWICKLUNG").Visible = True
Sheets("Best-Eingang").Visible = True
Sheets("ANSTAT_2019").Visible = True
Sheets("ANSTAT_2018").Visible = True
Sheets("ANSTAT_2017").Visible = True
Sheets("ANSTAT_2016").Visible = True
Sheets("ANSTAT_2015").Visible = True
Sheets("ANSTAT_2014").Visible = True
Sheets("ANSTAT_2013").Visible = True
Sheets("ANSTAT_2012").Visible = True
Sheets("ANSTAT_2011").Visible = True
Sheets("ANSTAT_2010").Visible = True
Sheets("ANSTAT_2009").Visible = True
Sheets("ANSTAT_2008").Visible = True
Sheets("ANSTAT_2007").Visible = True
Sheets("ANSTAT_2006").Visible = True
Sheets("ANSTAT_2005").Visible = True
Sheets("Anfrage").Visible = True
Sheets("Ausstehende Bestellungen").Visible = True
Sheets("Tabelle1").Visible = True
Unload Me

End If

'Bernhard Schmitt

If ListBox1.Value = "Bernhard Schmitt - BSCH" Then
MsgBox "Angemeldet als Bernhard Schmitt!!!"
Application.Visible = True

'Tabellenblätter Ein/Ausblenden

Sheets("ENTWICKLUNG").Visible = True
Sheets("Best-Eingang").Visible = True
Sheets("ANSTAT_2019").Visible = True
Sheets("ANSTAT_2018").Visible = True
Sheets("ANSTAT_2017").Visible = True
Sheets("ANSTAT_2016").Visible = True
Sheets("ANSTAT_2015").Visible = True
Sheets("ANSTAT_2014").Visible = True
Sheets("ANSTAT_2013").Visible = True
Sheets("ANSTAT_2012").Visible = True
Sheets("ANSTAT_2011").Visible = True
Sheets("ANSTAT_2010").Visible = True
Sheets("ANSTAT_2009").Visible = True
Sheets("ANSTAT_2008").Visible = True
Sheets("ANSTAT_2007").Visible = True
Sheets("ANSTAT_2006").Visible = True
Sheets("ANSTAT_2005").Visible = True
Sheets("Anfrage").Visible = True
Sheets("Ausstehende Bestellungen").Visible = True
Sheets("Tabelle1").Visible = True
Unload Me

End If

'Martin Benz

If ListBox1.Value = "Martin Benz - MB" Then
MsgBox "Angemeldet als Martin Benz!!!"
Application.Visible = True

'Tabellenblätter Ein/Ausblenden

Sheets("ENTWICKLUNG").Visible = True
Sheets("Best-Eingang").Visible = True
Sheets("ANSTAT_2019").Visible = True
Sheets("ANSTAT_2018").Visible = True
Sheets("ANSTAT_2017").Visible = True
Sheets("ANSTAT_2016").Visible = True
Sheets("ANSTAT_2015").Visible = True
Sheets("ANSTAT_2014").Visible = True
Sheets("ANSTAT_2013").Visible = True
Sheets("ANSTAT_2012").Visible = True
Sheets("ANSTAT_2011").Visible = True
Sheets("ANSTAT_2010").Visible = True
Sheets("ANSTAT_2009").Visible = True
Sheets("ANSTAT_2008").Visible = True
Sheets("ANSTAT_2007").Visible = True
Sheets("ANSTAT_2006").Visible = True
Sheets("ANSTAT_2005").Visible = True
Sheets("Anfrage").Visible = True
Sheets("Ausstehende Bestellungen").Visible = True
Sheets("Tabelle1").Visible = True
Unload Me

End If

'Steffen Diefenbach

If ListBox1.Value = "Steffen Diefenbach - STD" Then
MsgBox "Angemeldet als Steffen Diefenbach!!!"
Application.Visible = True

'Tabellenblätter Ein/Ausblenden

Sheets("ENTWICKLUNG").Visible = True
Sheets("Best-Eingang").Visible = True
Sheets("ANSTAT_2019").Visible = True
Sheets("ANSTAT_2018").Visible = True
Sheets("ANSTAT_2017").Visible = True
Sheets("ANSTAT_2016").Visible = True
Sheets("ANSTAT_2015").Visible = True
Sheets("ANSTAT_2014").Visible = True
Sheets("ANSTAT_2013").Visible = True
Sheets("ANSTAT_2012").Visible = True
Sheets("ANSTAT_2011").Visible = True
Sheets("ANSTAT_2010").Visible = True
Sheets("ANSTAT_2009").Visible = True
Sheets("ANSTAT_2008").Visible = True
Sheets("ANSTAT_2007").Visible = True
Sheets("ANSTAT_2006").Visible = True
Sheets("ANSTAT_2005").Visible = True
Sheets("Anfrage").Visible = True
Sheets("Ausstehende Bestellungen").Visible = True
Sheets("Tabelle1").Visible = True
Unload Me

End If

'Peter Kindel

If ListBox1.Value = "Peter Kindel - PK" Then
MsgBox "Angemeldet als Peter Kindel!!!"
Application.Visible = True

'Tabellenblätter Ein/Ausblenden

Sheets("ENTWICKLUNG").Visible = True
Sheets("Best-Eingang").Visible = True
Sheets("ANSTAT_2019").Visible = True
Sheets("ANSTAT_2018").Visible = True
Sheets("ANSTAT_2017").Visible = True
Sheets("ANSTAT_2016").Visible = True
Sheets("ANSTAT_2015").Visible = True
Sheets("ANSTAT_2014").Visible = True
Sheets("ANSTAT_2013").Visible = True
Sheets("ANSTAT_2012").Visible = True
Sheets("ANSTAT_2011").Visible = True
Sheets("ANSTAT_2010").Visible = True
Sheets("ANSTAT_2009").Visible = True
Sheets("ANSTAT_2008").Visible = True
Sheets("ANSTAT_2007").Visible = True
Sheets("ANSTAT_2006").Visible = True
Sheets("ANSTAT_2005").Visible = True
Sheets("Anfrage").Visible = True
Sheets("Ausstehende Bestellungen").Visible = True
Sheets("Tabelle1").Visible = True
Unload Me

End If

End Sub

Private Sub CommandButton_Reset_Click()

'Button Auswahl der ListBox löschen

Unload UserForm1
UserForm1.Show

End Sub

Private Sub CommandButton3_Click()

'Button Abbrechen. Programm wird geschlossen
Application.Quit

End Sub

Private Sub UserForm_Activate()

'ListBox wird über Konfigurationsblatt (Config) mit den Benutzern gefüllt

Dim I As Integer
Dim User_Long As String
Dim User_Short As String

Sheets("Config").Select

For I = 5 To 50

    Range("B" & I).Select
    User_Long = ActiveCell.FormulaR1C1
    Range("C" & I).Select
    User_Short = ActiveCell.FormulaR1C1

    If User_Long <> "" Then
        ListBox1.AddItem User_Long + " - " + User_Short
    Else
        Exit For
    End If


Next I



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:

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
Spalte auslesen und filter setzen	13.02.2019 09:08:30	Saki
Spalte auslesen und filter setzen	13.02.2019 09:20:35	Gast46152
Spalte auslesen und filter setzen	13.02.2019 09:29:26	Saki