Habe im unteren Code ein Problem mit Blattschutz Unprodect, & Prodect.
Es kommt immer die Fehlermeldung: "Objekt ünterstüzt diese Eigenschaft oder Methode nicht"
Könnte mir bitte jemand weiterhelfen ?
Danke & Gruß
Heinz
Sub Neuer_Schichtplan()
Sheets(Array("Jänner", "Februar", "März", "April", "Mai", "Juni", "Juli", "August", "September", _
"Oktober", "November", "Dezember")).Unprotect
If MsgBox("Wollen Sie die Schichten einfügen ? Die alten Schichtpläne werden gelöscht.", _
vbQuestion + vbYesNo, _
" Nachfrage Schichten einfügen !") = vbNo Then Exit Sub
Application.ScreenUpdating = False
Dim i As Integer
Dim j As Integer
For i = 1 To 12
For j = 3 To 156
If Sheets(i).Cells(j, 1) "" Then
Workbook_SheetChange Sheets(i), Cells(j, 2)
End If
Next j
Next i
Sheets(Array("Jänner", "Februar", "März", "April", "Mai", "Juni", "Juli", "August", "September", _
"Oktober", "November", "Dezember")).Protect
Application.ScreenUpdating = True
End Sub