Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1232to1236
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Reiter ausblenden bei öffnen

Reiter ausblenden bei öffnen
Claudia
Hallo zusammen,
derzeit nutze ich folgenden Code, um nur bestimmten Personen die Sicht auf zwei Reiter zu gewähren. Ich weiß, Excel ist nicht sicher....

Private Sub Workbook_Open()
Application.ScreenUpdating = False
If anwender = "Claudia" Or anwender = "frank" Then
Sheets(1).Visible = xlSheetVisible
Sheets(2).Visible = xlSheetVisible
Sheets(1).Select
Else
Sheets(1).Visible = xlSheetVeryHidden
Sheets(2).Visible = xlSheetVeryHidden
End If
ActiveWindow.Zoom = 100
Application.WindowState = xlMaximized
Application.ScreenUpdating = True
End Sub

Function anwender()
Application.Volatile
anwender = Environ("username")
End Function
Nun würde ich aber gerne die Prüfung auf die Personen aus dem Code auslagern.
Die Namen sollen im sheets(1) im Bereich AB2:Ab10 stehen.
Wie muss ich den Code dann anpassen, damit das klappt?
Vielen Dank!
Liebe Grüße
Claudia

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Reiter ausblenden bei öffnen
23.10.2011 15:46:40
Hajo_Zi
Hallo Claudia,

If Application.WorksheetFunction.CountIf(Worksheets("Tabelle1").Range("Ab2:Ab10"), Environ(" _
Username")) >0 then

@ Hajo: Vielen Dank, klappt prima.
23.10.2011 17:10:28
Claudia
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige