Zellbereich Gültigkeit für Makro
27.02.2003 14:08:58
Sven
mit folgendem code möchte ich ein Makro nur für bestimmte Zellen zulassen. Im einzelnen funzt es auch schon, nur, wenn ich eine gültige zelle mit einer benachbarten zelle markiere, wird auch die benachbarte zelle geändert, obwohl diese nicht im Gültigkeitsbereich steht, kann man das noch mehr ausgrenzen ?
es soll nur F11-aj11 änderbar sein beim Klick auf ein Makro
Sub Mx()
If Not Intersect(Selection, Range("F11:aj11")) Is Nothing Then
ActiveSheet.Unprotect password:="passwort"
With Selection.Interior
.ColorIndex = 1
.Pattern = xlSolid
End With
Selection.Font.ColorIndex = 2
Selection.Value = "M"
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, password:="passwort"
Else
MsgBox "Falscher Zellbereich"
End If
Next
End Sub
schlaue Ratschläge nehme ich gern an
Danke, Sven
Anzeige