Code erweitern
08.07.2014 13:41:31
Andreas
Hallo Exxcelprofis,
hab mal wieder ein wahrscheinlich kleines Problem.
Mit folgendem Code (Dank Hajo) werden beim öffnen der Mappe das Blatt "Verwendung des Formulars" und je nach Benutzername andere Blätter sichtbar gemacht bzw nicht versteckt.
Jetzt möchte ich gern erreichen, dass beim öffnen nicht nur das Blatt "Verwendung des Formulars" sondern noch 2 weitere Blätter ( Blatt01 und Blatt02) immer sichtbar bleiben.
Wie muß die Codezeile: If WsTabelle.Name <> "Verwendung des Formulars" Then
aussehen?
Private Sub Workbook_Open()
Dim WsTabelle As Worksheet
Dim Rafound As Range
Dim LoLetzte As Long
Dim Loi As Long
Application.ScreenUpdating = False
For Each WsTabelle In Sheets
If WsTabelle.Name <> "Verwendung des Formulars" Then
' in Benutzer steht die übersicht
WsTabelle.Visible = xlVeryHidden
End If
Next WsTabelle
With Worksheets("Benutzer")
Set Rafound = .Rows(1).Find(Environ(" USERNAME "), , , _
xlWhole, , xlNext)
If Not Rafound Is Nothing Then
LoLetzte = IIf(IsEmpty(.Cells(.Rows.Count, Rafound.Column)), _
.Cells(.Rows.Count, Rafound.Column).End(xlUp).Row, .Rows.Count)
For Loi = 2 To LoLetzte
Worksheets(CStr(.Cells(Loi, Rafound.Column))).Visible = True
Next Loi
End If
End With
End Sub
mfg, Andreas