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