ich möchte ConnandButton4 auf allen Tabellenblättern ausblenden.
Leider sind die Tabellenblätter in VBA nicht chronologisch durchnummeriert!
Einige Dokumente haben "Tabelle1" und "Tabelle12", andere "Tabelle4" und "Tabelle8".
Da ich das Makro in ca. 80 Dokumente per copy&paste einfügen möchte sollte es so konstruiert sein, dass es unabhängig von der Tabellennummer läuft.
So sieht mein Konstrukt aus:
'Beim Starten automatisch ausführen
Private Sub Workbook_Open()
' ***** Aktueller Username *****
Dim objWSHNetwork As Object
Set objWSHNetwork = CreateObject("WScript.Network")
GetUserName = objWSHNetwork.UserName
' ***** Debugger deaktivieren *****
Application.DisplayAlerts = False
' ***** Admin-Button ein-/ausblenden *****
For Each Worksheet In ActiveWorkbook.Sheets
If GetUserName = "Mustermann" Then
Worksheet.CommandButton4.Visible = True
Else
Worksheet.CommandButton4.Visible = False
End If
Next Worksheet
Application.ThisWorkbook.Saved = True
End Sub
So ist aber der Bezug auf die CommandButtons unzureichend.
Hat jemand ne Idee?
Danke und Gruß
Florian