Hallo,
ich habe ein Problem mit "Private Sub Workbook_Open()"
Bei den meisten Kollegen funktioniert das einwandfrei. Der Username wird ausgelesen und die div. Tabellenblätter werden bei Bedarf verborgen.
Es gibt aber zwei/ drei Kollegen, da funktioniert das nicht. Und ich habe keine Ahnung warum. :(
Wenn ich z.B. Worksheets("Hilfsblatt").Range("B2") = Environ("UserName") mittels Makro ausführe, dann funktioniert das auch bei den "Problemkollegen".
Makroeinstellungen sind bei allen Kollegen so wie bei mir.
Das wäre der Code:
Private Sub Workbook_Open()
Worksheets("Hilfsblatt").Range("B2") = Environ("UserName")
Worksheets("Auswertung").Select
Worksheets("Anleitung").Visible = xlVeryHidden
Worksheets("GF").Visible = xlVeryHidden
Worksheets("Tacho Daten").Visible = xlVeryHidden
Worksheets("ÜST-Status_GF").Visible = xlVeryHidden
Worksheets("ÜST-Status_Admin").Visible = xlVeryHidden
Worksheets("ÜST-Status").Visible = xlVeryHidden
Worksheets("AZ CSV Export").Visible = xlVeryHidden
Worksheets("Fehltageliste bis Ende Vormonat").Visible = xlVeryHidden
Worksheets("Hilfsblatt").Visible = xlVeryHidden
Worksheets("Resturlaub").Visible = xlVeryHidden
Worksheets("Admin").Visible = xlVeryHidden
End Sub
Ich wäre Euch allen WAHNSINNIG dankbar, wenn jemand eine Idee hätte woran das liegen könnte.
Danke schon mal im Voraus.
Grüße
Andreas
|