Hallo Excelprofis,
hab mal wieder ein Problemchen.
Ich habe im Netz folgenden Code gefunden, mit dessen Hilfe ich ja nach Benutzeranmeldung verschiedene Tabellenblätter aus- oder einblende:
Private Sub Workbook_Open()
Application.ScreenUpdating = False
Sheets("Liste01").Visible = True
Sheets("Liste02").Visible = True
Sheets("Liste03").Visible = True
Sheets("Ausfüllhilfe").Visible = True
Sheets("Verwendung des Formulars").Visible = True
Dim User As Variant
User = Environ(" USERNAME ")
If User = "GWH" Then
Sheets("Liste01").Visible = xlVeryHidden
Sheets("Liste02").Visible = True
Sheets("Liste03").Visible = xlVeryHidden
GoTo ende
Else
Sheets("Ausfüllhilfe").Visible = True
Sheets("Verwendung des Formulars").Visible = True
Sheets("Liste01").Visible = xlVeryHidden
Sheets("Liste02").Visible = xlVeryHidden
Sheets("Liste03").Visible = xlVeryHidden
End If
......
Da die Benutzer und Tabellen immer mal wechseln würde ich die Usernamen und Tabellen gern in Zellen schreiben und von dort auslesen lassen.
Also z.B. Soll statt "GWH" , Tabelle"Userdaten", Zelle A3 stehen und statt "Liste01" , Tabelle"Userdaten" Zelle B3 (wenn diese nichtleer)
Wie kann ich das in den Code integrieren?
Danke fürs lesen und die Hilfe!
mfg, Andreas