Hallo Ihr,
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.