Workbook_SheetActivate Ereignis

für Tabelle1 eingetragen funktioniert das Change-Ereingis gut, ua. werden nicht vorhanden ScrollBars hinzugefügt.

für Tabelle2 eingetragen funktioniert das SheetActivate-Ereingis nicht, es tritt keine Änderung ein.

Wo könnte der Fehler liegen ?

Viele Grüße aus Berlin

Rainer

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
Application.CommandBars("Standard").Visible = True
With ActiveWindow
.DisplayGridlines = True
.DisplayHeadings = True
.DisplayHorizontalScrollBar = True
.DisplayVerticalScrollBar = True
End With
End Sub

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Application.CommandBars("Standard").Visible = True
With ActiveWindow
.DisplayGridlines = False
.DisplayHeadings = False
.DisplayHorizontalScrollBar = False
.DisplayVerticalScrollBar = False
End With
End Sub