probiers mal so ...
30.01.2017 08:45:35
Matthias
Hallo
Du hast ja im Code auch keine Anweisung das etwas im Blatt (301 Original)
geändert werden soll.
Bin mir nicht sicher, in welchem Blatt Du die Spalten Columns("AM:BK")
ausblenden willst. Habs jetzt mal in beiden Tabellenblättern gemacht.
Hier der Code (in ein allgemeines Modul)
Option Explicit
Sub fünfer()
Worksheets("301 Original").Unprotect Password:="301"
Worksheets("Spieler-Stats").Unprotect Password:="301"
With Worksheets("Spieler-Stats")
.Columns("AM:BK").EntireColumn.Hidden = True
.Rows("47:91").EntireRow.Hidden = True
.Range("42:46,33:37,24:28,15:19,6:10").EntireRow.Hidden = True
.Protect Password:="301"
End With
With Worksheets("301 Original")
.Columns("AM:BK").EntireColumn.Hidden = True
.Rows("47:91").EntireRow.Hidden = True
.Range("42:46,33:37,24:28,15:19,6:10").EntireRow.Hidden = True
.Protect Password:="301"
End With
End Sub
oder so:
Option Explicit
Sub fünfer()
Application.ScreenUpdating = False
With Worksheets("Spieler-Stats")
.Unprotect Password:="301"
.Columns("AM:BK").EntireColumn.Hidden = True
.Rows("47:91").EntireRow.Hidden = True
.Range("42:46,33:37,24:28,15:19,6:10").EntireRow.Hidden = True
.Protect Password:="301"
End With
With Worksheets("301 Original")
.Unprotect Password:="301"
.Columns("AM:BK").EntireColumn.Hidden = True
.Rows("47:91").EntireRow.Hidden = True
.Range("42:46,33:37,24:28,15:19,6:10").EntireRow.Hidden = True
.Protect Password:="301"
End With
MsgBox "fertig"
End Sub
Gruß Matthias