Mit den beiden Codes markiere ich bestimmte Zellen farbig (hellgelb, bzw. hellgrau), was auch funktioniert. Allerdings muss ich die Farben im Code festlegen, was ich eigentlich nicht möchte. Ist es möglich die Farbe aus bestimmten Zellen auszulesen und diese per Code einzutragen.
Beispiel:
Nicht: Const Farbe1 = 36 hellgelb, sondern Const Farbe1 = TabellenBlatt 1 Zelle A1
Nicht: Cells(z, s + 3).Interior.ColorIndex = 15 'hellgrau sondern
Cells(z, s + 3).Interior.ColorIndex = TabellenBlatt 1 Zelle A2
Kann mir jemand helfen
Gruss Hans
Sub DatumHervorheben(dat As Date, setze As Boolean)
Const Farbe = 22
Const Farbe1 = 36 hellgelb
Dim m As Integer, t As Integer
Dim z As Range
Dim f As Long
m = Month(Date)
t = Day(Date)
Set z = Cells(t + 5, m * 5 - 2)
If setze Then f = Farbe Else f = Farbe1
Range(z, z.Offset(0, -2)).Interior.ColorIndex = f
End Sub
Sub Ferien_ein()
Dim f As Integer
Dim Anfang As Date
Dim Ende As Date
For f = 530 To 534
Anfang = Worksheets("Fs-Planer").Cells(f, 6)
Ende = Worksheets("Fs-Planer").Cells(f, 7)
For z = 6 To 36 ' =Zeilen 6 bis 36
For s = 1 To 60 Step 5 '=Spalten A, E, E, ... , AS
If Cells(z, s) >= Anfang And Cells(z, s)