Forum
Tipps
News
Menu-Icon

Excel 2003: Farbige Zellen automatisch sperren

Hallo, in meinem Excel Urlaubsplaner werden Feiertage und Wochenenden blau eingefärbt.Gibt es eine Möglichkeit, das Makro so zu verändern, das diese Zellen dann für Eingaben gesperrt werden?
Vielen Dank

Sub FeiertageKennzeichnen()
Const Tab1 = 'Jan-Jun'
Const Tab2 = 'Jul-Dez'
Dim i As Integer
Dim Bereich As Range
Dim Monatswert As Integer
Dim Feiert As Date
Dim b As Boolean

ThisWorkbook.Activate
Sheets('Feiertage').Activate
Range('B1').Select
Do Until ActiveCell.Value = ''
Feiert = ActiveCell.Value
b = False
If InStr(ActiveCell.Offset(0, -1).Value, '*') > 0 Then b = True
If Month(ActiveCell.Value) > 6 Then Sheets(Tab2).Activate Else Sheets(Tab1).Activate
Range('H5').Select
For i = 8 To 189
If ActiveCell.Value = Feiert Then
Range(ActiveCell(), ActiveCell.Offset(95, 0)).Select
If b = True Then
Selection.Interior.ColorIndex = 20
Else
Selection.Interior.ColorIndex = 33
End If


Mein Computer-System:
   
Mein PC ist etwa 0-2 Jahre alt.


« Screenshot Programmopenoffice.org Ränder einstellen »
 

Schnelle Hilfe: Hier nach ähnlichen Fragen und passenden Tipps suchen!

Fremdwörter? Erklärungen im Lexikon!
Excel
Excel ist eine Tabellenkalkulationssoftware von Microsoft, die Teil des Office-Pakets ist, aber auch eigenständig erworben werden kann. Ursprünglich für di...

Makrolon
Makrolon ist ein von der Firma Bayer entwickelter Kunststoff, ein so genanntes Polycarbonat. Dieser Stoff ist extrem form- und wärmebeständig und deshalb auch v...

Subnetz
Ein Subnetz, (englisch "Subnet"), ist ein eigenständiger und abgetrennter Teil eines größeren Netzwerks. Die Aufteilung eines großen Netzwerks in kl...