|  
                                             
	Habe das jetzt Mal ausprobiert, bekomme aber leidern den Fehler "Die Locked-Eigenschaft des Range-Objektes kann nichtfestgelegt werden." 
	Folgende Zeile ist gelb markiert. 
	    Target.Offset(0, 3).Locked = True 
	Habe das den Blattschutz per Passwort erst einmal weggelassen, nur Blattschutz ohne PW reingemacht. 
	  
	Kurze Frage noch, bin eher blutiger Anfänger in vba 
	Was bewirken folgende Befehle: 
	If Target.Column <> 1 Then Exit Sub 
	If Target.Count > 1 Then 
	  
	Was bewirkt  
	Target.Column ... 
	Target.Count ...? 
	  
	If Target.Offset(0, 1).Value = "Profil 2" Then
	
		    Target.Offset(0, 3).Locked = False 
	
		Else 
	
		    Target.Offset(0, 3).Locked = True 
	
		  
	
		Wie ist der Wert/Befehl Target.Offset (0, 1) zu verstehen, was bedeuten die Angaben in den Klammern? 
	
		  
	
		Vielen Danke für Deine/Eure Zeit 
 
     |