Hallo liebe Forums-Teilnehmer,
ich brauche Hilfe.
Ich möchte Spalten in einem Excelblatt benutzerdefiniert ausblenden.
Leider bekomme ich es nicht hin. Wenn ich den Code eingebe, passiert rein gar nichts.
Was mache ich falsch?
Tausend dank vorab.
Private Sub Workbook_Open()
Application.ScreenUpdating = False
With Worksheets("Tabelle2") '<== Tabellenname anpassen
.Columns.Hidden = False
.Columns("A:F").Hidden = Environ("Username") = "Benutzer1" '<== Benutzer anpassen
.Columns("G:U").Hidden = Environ("Username") = "Benutzer2" '<== Benutzer anpassen
End With
Application.ScreenUpdating = True
End Sub
|