Thema Datum  Von Nutzer Rating
Antwort
Rot Probleme mit Private Sub Workbook_Open()
22.03.2023 17:02:01 Andreas
NotSolved
22.03.2023 18:00:38 ralf_b
NotSolved
22.03.2023 20:43:30 Andreas
NotSolved

Ansicht des Beitrags:
Von:
Andreas
Datum:
22.03.2023 17:02:01
Views:
551
Rating: Antwort:
  Ja
Thema:
Probleme mit Private Sub Workbook_Open()

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


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:

 
 

  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Probleme mit Private Sub Workbook_Open()
22.03.2023 17:02:01 Andreas
NotSolved
22.03.2023 18:00:38 ralf_b
NotSolved
22.03.2023 20:43:30 Andreas
NotSolved