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.
Küchenmeister Gast |