bin jetzt bei folgendem Problem angelangt:
Code:
Private Sub cmdVor_Click()
UserForm2.Show
Application.ScreenUpdating = False
For I = 1 To Sheets.Count
Sheets(I).Unprotect ("")
Next I
cmdVor.Caption = CStr(Wert + 1)
cmdZurueck.Caption = Wert - 2
Range("B8").Value = Wert - 1
Makro1
For I = 1 To Sheets.Count
Sheets(I).Protect ("")
Next I
End Sub
Blatt 2 hat die gleiche Struktur wie alle anderen Blätter, lediglich erweitert um 3 Steuerelemente (CmdButtons). Eines davon ist cmdVor. Mit o.g. Code erscheint die Fehlermeldung:
"Unprotect-Methode des Workshett-Objekts ist fehlerhaft" beim Versuch, den Blattschutz für Blatt 2 aufzuheben. Für Blatt 1 wurde der Blattschutz aufgehoben.
Ich kann den Blattschutz für Blatt 2 nach Beenden der Überwachung dann auch nicht manuell aufheben.
Setze ich im Code I = 3, funktioniert der Code für alle anderen Blätter.
Kann mir jemand helfen ???