Computerhilfen.de Logo
Forum
Tipps
News
Frage stellen

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 ein Programm aus dem Office-Paket und kann entweder einzeln oder in diesem Paket von Microsoft erworben werden. In beiden Fällen ist es kostenpflichtig.&nb...

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...

Dateiendungen
Die Dateiendung, auch Dateierweiterung oder einfach "Endung" genannt, besteht aus meistens drei oder vier Buchstaben und wird mit einem Punkt an den Dateinamen angehä...