Hallo beisammen,
mit dem folgenden Code möchte ich beim Öffnen einer Datei einen cmb_Button usergesteuert ein- bzw. ausblenden:
With Worksheets("START")
Select Case Environ("Username")
Case "28745", "28494", "28747", "32278"
.Shapes("cmb_ENTRY").Visible = True
Case Else
.Shapes("cmb_ENTRY").Visible = False
End Select
End With
Das funktioniert auch, ich möchte allerdings die User nicht im Code pflegen müssen, sondern z.B. in einem Sheets("SETT").Range("B15") bis .Range("B19").
Ich habe versuchsweise den Code geändert:
With Worksheets("START")
Select Case Environ("Username")
Case Sheets("SETT").Range("B15"), Sheets("SETT").Range("B16")
.Shapes("cmb_ENTRY").Visible = True
.....
Das hat jedoch nicht funktioniert. Wie muß ich den Code anpssen?
Besten Dank für Eure Hilfe.
Gruß
Torsten