Codefehler bei "If Worksheets (wksArr...)
29.04.2009 16:11:25
WalterK
der folgende Code (setzt bei allen benannten Blättern einen Blattschutz bzw. hebt ihn auf) löst den Debugger aus wobei die Zeile "If Worksheets(wksArr(i)).ProtectContents = True Then" gelb markiert wird:
Option Explicit
Sub Schaltfläche109_BeiKlick()
Dim i As Long
Dim wksArr() As Variant
Application.ScreenUpdating = False
wksArr = Array("Tabelle_Neu", "Tabelle_Soundso")
For i = 0 To UBound(wksArr)
If Worksheets(wksArr(i)).ProtectContents = True Then
Worksheets(wksArr(i)).Unprotect
Else
Worksheets(wksArr(i)).Protect
End If
Next i
Application.ScreenUpdating = True
End Sub
Weiß jemand, woran das liegen kann?
Servus, Walter