VBA uns Schreibschutz
14.02.2016 11:49:02
Stefan
suche dringend Hilfe bei euch weil ich mit meinen Latein am ände bin :(
Ich habe mir für die Arbeit eine excel erstellt.
Diese liegt für die betroffenen Personen auf einen Server.
In bestimmten Bereichen können und müssen Sie ihre eingaben machen.
Den Rest habe ich mit einen Schreibschutz versehen.
Damit die Leute nicht in den Spalten verrutzschen, und sich etwas besser zurechtfinden, habe ich ein VBA Fadenkreuz erstellt.
Funktioniert super ,,,,,
Nur wenn ich den Schreibschutz aktiviere, wars das.
Laufzeitfehler 1004
Könntet ihr mir bitte bei meinen Problem behilflich sein?
Besten Dank
Stefan
(und hier der Code)
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
Dim Mybereich As Range
Set Mybereich = Range("B12:D12:I6:I12:APT200")
If Not Intersect(Target, Mybereich) Is Nothing Then
Mybereich.Interior.ColorIndex = xlNone
Range(Cells(Target.Row, "I"), Cells(Target.Row, "APT")).Interior.ColorIndex = 24
Range(Cells(Target.Row, "C"), Cells(Target.Row, "D")).Interior.ColorIndex = 24
Range(Cells(Target.Row, "G"), Cells(Target.Row, "G")).Interior.ColorIndex = 24
Range(Cells(12, Target.Column), Cells(120, Target.Column)).Interior.ColorIndex = 24
Range(Cells(6, Target.Column), Cells(6, Target.Column)).Interior.ColorIndex = 24
Target.Interior.ColorIndex = 6
End If
End Sub