den untenstehenden Code habe ich hinter Tabelle "Lizenz" geschrieben....Hebe ich den Blattschutz manuell auf, läuft der Code einwandfrei, ansonsten jedoch nicht?......Stimmt was mit der Zeile "unprotect..." nicht?
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Sheets("Lizenz").Unprotect Password:=""
If Target = [c9] And Target.Value "1" Then
With Sheets("Daten").Range("A2:E3")
.Copy Sheets("Daten").Range("H2:L3")
Application.CutCopyMode = False
.ClearContents
End With
End If
Sheets("Lizenz").Protect contents:=True, Password:=""
Setzen tut sich der Blattschutz automatisch wieder.....bitte um Hilfe
Danke
Peter S.