AW: Aktuellen Tag farblich markieren
18.01.2005 09:31:09
Matthias
Hallo Hans,
ich bin zwar etwas spät, aber jetzt muss ich es auch loswerden...
In dieseArbeitsmappe:
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
DatumHervorheben Date, False
End Sub
Private Sub Workbook_Open()
Dim merker As Boolean
merker = ThisWorkbook.Saved
DatumHervorheben Date, True
ThisWorkbook.Saved = merker 'damit die Farbänderung alleine nicht schon das Speichern erzwingt
GehezuMonat Month(Date)
End Sub
In ein Modul:
Option Explicit
Sub DatumHervorheben(dat As Date, setze As Boolean)
Const Farbe = 19
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 + 17, m * 17 - 12)
If setze Then f = Farbe Else f = xlColorIndexNone
Range(z, z.Offset(0, 12)).Interior.ColorIndex = f
End Sub
Sub GehezuMonat(m As Integer)
Dim s
s = m * 17 - 12
With ActiveWindow
.ScrollColumn = s
.ScrollRow = 1
End With
Cells(18, s).Activate
End Sub
Das mit der bedingten Formatierung ist natürlich auch eine Möglichkeit.
Gruß Matthias