Spalten ausblenden - jedoch nicht für bestimmte

Forumthread: Spalten ausblenden - jedoch nicht für bestimmte
3 Beiträge zu diesem Forumthread
Anzeige
VBA Beispiele zu verwandten Themen

Forumthread: Spalten ausblenden - jedoch nicht für bestimmte

22.07.2013 18:17:04

Rebecca

Hallo,
ich möchte gerne, dass die Spalten C und D für sämtlichen User ausgeblendet werden, außer für "benutzerA" und "benutzerB" und "benutzerC" und "benutzerD". Wenn ich jedoch im untenstehenden Code mehr als zwei Benutzer abfrage, dann funktioniert das nicht. Mit zwei Benutzern (so wie untenstehend) funktioniert es.
Was mache ich falsch?

Private Sub Workbook_Open()
Application.ScreenUpdating = False
Range("A1").Select
With Worksheets("Nettopreisliste")
Sheets("Nettopreisliste").Unprotect Password:="xxxx"
Columns("C:D").Hidden = True
Columns("C:D").Hidden = Not (Environ$("UserName") = "benutzerA")
Columns("C:D").Hidden = Not (Environ$("UserName") = "benutzerB")
Columns("N:Z").Hidden = True
Sheets("Nettopreisliste").Protect userinterfaceonly:=True, Password:="xxxx"
End With
End Sub

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Spalten ausblenden - jedoch nicht für bestimmte

22.07.2013 18:25:05

Rudi
AW: Spalten ausblenden - jedoch nicht für bestimmte

22.07.2013 18:29:57

UweD
AW: Spalten ausblenden - jedoch nicht für bestimmte

22.07.2013 21:39:30

Rebecca

AW: Spalten ausblenden - jedoch nicht für bestimmte

22.07.2013 18:25:05

Rudi

Hallo,

Private Sub Workbook_Open()
Application.ScreenUpdating = False
Range("A1").Select
With Worksheets("Nettopreisliste")
Sheets("Nettopreisliste").Unprotect Password:="xxxx"
Select Case Environ("UserName")
Case "benutzerA", "benutzerB", "benutzerC", "benutzerD"
Columns("C:D").Hidden = False
Case Else
Columns("C:D").Hidden = True
End Select
Columns("N:Z").Hidden = True
Sheets("Nettopreisliste").Protect userinterfaceonly:=True, Password:="xxxx"
End With
End Sub

Gruß
Rudi

AW: Spalten ausblenden - jedoch nicht für bestimmte

22.07.2013 18:29:57

UweD

Hallo
Hast du mal Select Case versucht?

Private Sub Workbook_Open()
Application.ScreenUpdating = False
Range("A1").Select
With Worksheets("Nettopreisliste")
Sheets("Nettopreisliste").Unprotect Password:="xxxx"
Select Case Environ$("UserName")
Case "benutzerA", "benutzerB", "benutzerC", "benutzerD"
Columns("C:D").Hidden = False
Case Else
Columns("C:D").Hidden = True
End Select
Columns("N:Z").Hidden = True
Sheets("Nettopreisliste").Protect userinterfaceonly:=True, Password:="xxxx"
End With
End Sub

Gruß UweD

AW: Spalten ausblenden - jedoch nicht für bestimmte

22.07.2013 21:39:30

Rebecca

Vielen lieben Dank Euch beiden !!!!!
Es funktioniert !!!! Juhuuuuu ;-)